cad中不同层间偏移实体（提供源码）

ken_terry · 发表于 2010-10-25 22:48:18

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

在层间偏移很有用，所以在网上找了以下文件，但做成LSP后还是不能用

，有那个高手帮忙做成LSP，谢谢！

　　在cad作图中，“offset”命令只能在同一层中偏移实体，而实际绘图中常常需要在不同层间偏移实体。例如：在一层上画完中心线后，只需将其向两边偏移一定的距离即可得到轮廓线，而中心线和轮廓线一般不在同一层上，还需改变轮廓线所在层。下面这个用autolisp编写的程序可以在不同层间偏移实体，解决了这一问题。其中变量“layer”定义为全局变量，指要把实体偏移到所在层的层名。当使用该函数时，如果所偏移到的层与上次相同，可以不用输入层名(变量“layer”的值)。

　　(defun c

la(/cmdecho d d1 lay ent p)

　　(if ＊error＊ quit)

　　(setq cmdecho (getvar ″cmdecho″))

　　(setvar″cmdecho″1)

　　(princ″\noffset dist<″)

　　(setq d(getvar ″offsetdist″))

　　(if(/=d－1)(princ d))

　　 (setq d1(getdist″>:″))

　　 (if(/=d1 nil)(setq d d1))

　　 (princ″\ninput the layer name to offset to<″)

　　 (if(/=layer nil)(princ layer))

　　 (setq lay(getstring ″>:″))

　　 (if (/=lay ″ ″)(setq layer lay))

　　 (while(setq ent(entsel ″\nselect object to offset:″))

　　 (setq p(getpoint″\nside object to offset?″))

　　 (command ″—.offset″d ent p″ ″)

　　 (command ″—.change″　″1″　″″　″p″　″layer″layer″　″）

　　 )

　　 (setvar″cmdecho″ cmdecho)

　　 (princ)

　　)

ola.rar (400 Bytes, 下载次数: 12)