spring 发表于 2004-9-12 15:47:00

entsel

帮助文件中说


有时候在操作一个对象时，不但需要选中一个对象，同时还需要知道指定的点。例如在 AutoCAD 中的 Object Snap 以及 BREAK、TRIM 和 EXTEND 命令中就是这样。entsel 使得 AutoLISP 程序可以实现这种操作。它通过选取点的方式来选取单个对象。<b><U><FONT color=#ff0000>除非在函</FONT><FONT color=#ff0000>数中作特别申明，否则 initget 函数将忽略当前 Osnap 设置</FONT></U></b>。entsel 函数支持它前面通过调用 initget 函数设置的关键字。


那我如果要指定中点要怎么做,我试过这样子不行


       (setq oosm (getvar "osmode"))<BR>       (setvar "osmode" 2)<BR>       (setq se        (entsel))<BR>       (setvar "osmode" oosm)

alin 发表于 2004-9-12 17:26:00

_$ (setq sel (entsel))<BR>(&lt;图元名: 7eff5e00&gt; (4837.14 1831.84 0.0))


_$ (setq midpt (osnap (cadr sel) "_mid"))<BR>(4593.95 1856.74 0.0)


这样行不行？

无痕 发表于 2004-9-12 18:45:00

也可以这样


(setvar "osmode" 2)


(setq pt (getpoint ))


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

spring 发表于 2004-9-13 08:39:00

alin发表于2004-9-12 17:26:00static/image/common/back.gif_$ (setq sel (entsel))(&lt;图元名: 7eff5e00&gt; (4837.14 1831.84 0.0))



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


这...

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

spring 发表于 2004-9-13 08:42:00

无痕发表于2004-9-12 18:45:00static/image/common/back.gif也可以这样



(setvar \"osmode\" 2)


(setq pt (getpoint ))


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


<BR>呵呵,又学到一招,可是这里问什么要用 IF 呢


(setvar "osmode" 2)<BR>(setq el (nentselp (getpoint)))

无痕 发表于 2004-9-14 08:45:00

可以不用if，you are right

青青20 发表于 2004-9-14 19:31:00

alin发表于2004-9-12 17:26:00static/image/common/back.gif_$ (setq sel (entsel))(&lt;图元名: 7eff5e00&gt; (4837.14 1831.84 0.0))






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


这...

有启发,谢谢各位.
页: [1]
查看完整版本: entsel