entsel

spring

帮助文件中说 有时候在操作一个对象时，不但需要选中一个对象，同时还需要知道指定的点。例如在 AutoCAD 中的 Object Snap 以及 BREAK、TRIM 和 EXTEND 命令中就是这样。entsel 使得 AutoLISP 程序可以实现这种操作。它通过选取点的方式来选取单个对象。除非在函数中作特别申明，否则 initget 函数将忽略当前 Osnap 设置。entsel 函数支持它前面通过调用 initget 函数设置的关键字。 那我如果要指定中点要怎么做,我试过这样子不行 (setq oosm (getvar "osmode"))
(setvar "osmode" 2)
(setq se (entsel))
(setvar "osmode" oosm)

alin

_$ (setq sel (entsel))
(<图元名: 7eff5e00> (4837.14 1831.84 0.0)) _$ (setq midpt (osnap (cadr sel) "_mid"))
(4593.95 1856.74 0.0) 这样行不行？

无痕

也可以这样


(setvar "osmode" 2)


(setq pt (getpoint ))


(if (setq el (nentselp pt))(list (car el) pt) nil)

spring

alin发表于2004-9-12 17:26:00_$ (setq sel (entsel))(<图元名: 7eff5e00> (4837.14 1831.84 0.0)) _$ (setq midpt (osnap (cadr sel) \"_mid\"))(4593.95 1856.74 0.0) 这...

这样也行,我原来就是这样做的.我以为直接用 entsel 就可以了

spring

无痕发表于2004-9-12 18:45:00也可以这样 (setvar \"osmode\" 2) (setq pt (getpoint )) (if (setq el (nentselp pt))(list (car el) pt) nil)

呵呵,又学到一招,可是这里问什么要用 IF 呢 (setvar "osmode" 2)
(setq el (nentselp (getpoint)))

无痕

可以不用if，you are right

青青20

alin发表于2004-9-12 17:26:00_$ (setq sel (entsel))(&lt;图元名: 7eff5e00&gt; (4837.14 1831.84 0.0))






_$ (setq midpt (osnap (cadr sel) \"_mid\"))(4593.95 1856.74 0.0)


这...

有启发,谢谢各位.