lisp天正图元位置修改_关于图元改层的,请求大佬帮助 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
(defun c:zjtc()
(princ "\n增加1-9号图层")
(setvar "cmdecho" 0) ; 关闭命令提示
(Setq osmode_bak (getvar "osmode")) ;_记录捕捉
(Setvar "osmode" 0) ;_关闭捕捉
(command "layer" "new" "_1" "c" "7" "_1" "")
(command "layer" "new" "_2" "c" "5" "_2" "")
(command "layer" "new" "_3" "c" "6" "_3" "")
(command "layer" "new" "_4" "c" "4" "_4" "")
(command "layer" "new" "_5" "c" "3" "_5" "")
(command "layer" "new" "_6" "c" "2" "_6" "")
(command "layer" "new" "_7" "c" "30" "_7" "")
(command "layer" "new" "_8" "c" "8" "_8" "")
(command "layer" "new" "_9" "c" "1" "_9" "")
(setvar "cmdecho" 1) ; 打开命令提示
(Setvar "osmode" osmode_bak) ;_还原捕捉
(PRINC))
;;;图层切换
(defun c:1 ()
(setvar "clayer" "_1")(princ))
(defun c:2 ()
(setvar "clayer" "_2")(princ))
(defun c:3 ()
(setvar "clayer" "_3")(princ))
(defun c:4 ()
(setvar "clayer" "_4")(princ))
(defun c:5 ()
(setvar "clayer" "_5")(princ))
(defun c:6 ()
(setvar "clayer" "_6")(princ))
(defun c:7 ()
(setvar "clayer" "_7")(princ))
(defun c:8 ()
(setvar "clayer" "_8")(princ))
(defun c:9 ()
(setvar "clayer" "_9")(princ))
;;;图元改层
(defun c:11 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_1" "")
(setvar "cmdecho" 1)
(princ))
(defun c:22 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_2" "")
(setvar "cmdecho" 1)
(princ))
(defun c:33 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_3" "")
(setvar "cmdecho" 1)
(princ))
(defun c:44 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_4" "")
(setvar "cmdecho" 1)
(princ))
(defun c:55 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_5" "")
(setvar "cmdecho" 1)
(princ))
(defun c:66 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_6" "")
(setvar "cmdecho" 1)
(princ))
(defun c:77 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_7" "")
(setvar "cmdecho" 1)
(princ))
(defun c:88 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_8" "")
(setvar "cmdecho" 1)
(princ))
(defun c:99 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_9" "")
(setvar "cmdecho" 1)
(princ))
自己整理的,凑合着用也不错,
lisp天正图元位置修改_关于图元改层的,请求大佬帮助 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐
- lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 自贡黄明儒 于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
- 方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 自贡黄明儒 于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
- lisp绘制法兰,[原创] Lisp 也玩宏录制 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
fsxm发表于2009-5-6 20:13:00再将坐标精度加大一点...搞个entmake版的!平时有可能用的到-- ;此Lisp程序由nonsmall制作的宏记录器自动生成 (defun c:te ...
- lisp天正图元位置修改_块内图元的坐标定位[已解决]感谢版主
(defun c:tt () (princ "\n请选择范围") (if (setq ss (ssget '((0 . "text,insert")))) (m ...
- lisp 首尾节点闭合_首尾相连的两条线合成线图元列表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
这是G版的代码...但你要的似乎首尾相连且共线才连接... (defun c:tt (/ gxl-Sel-ReDrawSel gxl-Sel-SSsub gxl-Sel-SSJoin gxl-sel- ...
- lisp修改上一个图素_修改图块基点(已解决) - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;;图块基点修改 ,但图块实际位置保持不变 ;;;明经通道 编制 By Gu_xl 2011年7月 (defun c:CBB () (c:BlockBase)) (defun c:BlockBase ...
- 天正电气lisp是什么文件_模仿天正电气低压系统图 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
[code="lisp] (defun c:lea-dyxtt (/ dcl_id Dcl_File k1 lst n show_lst lst1 lst2 lst3 rb1 rb2 tem ...
- lisp 发凹圆角_请问:如何将倒圆角的命令修改一下? - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
谢谢大家的帮助! 按xhf大虾的说法,虽然可以不擦除线,但两条直线交点靠近圆角一边的两条小线段也保留了下来:我想可不可能得到这样一个结果:圆角后剩下一条折线和一条倒过圆角的折线(曲线?),而两条线之间 ...
- lisp 角平分线_智能中心线 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 中心线,智能 - Powered by Discuz!...
本帖最后由 自贡黄明儒 于 2013-11-23 10:59 编辑 感谢大家帮助 ;;编组开始;(command "_.undo" "be") (defun _ ...
- cad偏移后自动变色lisp_高手帮忙修改,批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;用LISP实现将PL环向内或向外偏移 ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654 (defun C:TEE ( / cu ...
最新文章
- java sslsocket程序_JAVA与C++进行sslsocket通信,JAVA做服务端或客户端
- 浅谈几种区块链网络攻击以及防御方案之日蚀攻击
- (C++)1037 在霍格沃茨找零钱的两种解法
- python GIL :全局解释器
- 灵活、高效的云原生集群管理经验:用 K8s 管理 K8s
- 美军开发远程人脸识别系统,实现1公里内目标识别
- 动态规划 —— 数位 DP
- 利用HTML5开发Android笔记(中篇)
- 苹果Mac时间追踪工具推荐:Time Sink
- 【L298N 驱动电机的线路连接图】
- 万物皆可秒——淘宝秒杀Python脚本,扫货618,备战双11!
- iMX6ULL u-boot2021.04移植
- python画喜羊羊代码_python学习笔记7-字典
- 剑网三插件入门教程(2):在游戏中调试Lua代码
- 软件测试交行项目的流程,交通银行流程引擎POC测试报告——IntelliFlow.pdf
- Hbook笔记 - 免费、简约、大方的Markdown笔记
- Linux 离线安装 autoformat
- 如何构建可持续的ChatGPT高性能服务器端架构?
- Unity基础—Transform类
- C#松下PLC通信源代码,支持松下Mewtocol协议,支持网口通信和串口通信,部分代码稍作修改后可直接copy到自己的上位机软件使用