请版主和高手来看看
 

请版主和高手来看看
www.dimcax.com
请版主和高手来看看
(defun c:tt()
(setvar "blipmode" 0) ;关闭点显示
(setvar "cmdecho" 0) ;关闭回显
(command "osnap" "none") ;设置对象捕捉模式,关闭所有捕捉点
(command "autosnap" 63) ;打开极轴
(setq in_pk0 (getpoint "\n选择插入起始点:"))
(setq in_pk1 (polar in_pk0 (/ pi 2) 5))
(setq in_pk2 (polar in_pk1 0 5))
(setq in_pk3 (polar in_pk2 (/ pi -2) 5))
(command "line" in_pk0 in_pk1 \)

(command "line" in_pk1 in_pk2 \)

(command "line" in_pk2 in_pk3 \)

(command "line" in_pk3 in_pk0 \)
（command "circle" in_pk2 2 \）

)
怎样选择上面所画的图形，然后进行镜像操作？
谢谢好心人帮忙
d
先建立一个空选择集(setq ss (ssadd))
然后每个绘制命令后面加上(ssadd (entlast) ss)
最后使用镜像命令操作ss选择集即可
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
二楼的方法的确可以。谢谢先
但是如果程序绘图命令很多，这样每个绘图命令后加一条很麻烦。是否能用一个循环或条件语句就能实现选择？谢谢各位
d
程序前面加上(setq las (entlast))
后面加上
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(setq ss(ssadd))
(while (setq las (entnext las))
(ssadd las ss)
)
帖子编辑不了...
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.