【转帖】请帮忙给看看一个小的练习程序，谢谢！
 

请帮忙给看看一个小的练习程序，谢谢！
www.dimcax.com
请帮忙给看看一个小的练习程序，谢谢！
本人是自学，在练习中常有困惑，下面的是要在屏幕上任选择一个数字，然后对它的数值进行处理……。请教如何把其中的(setq m(entlast))改成用户在屏幕上选择一个数字，程序还能正常运行？帮帮忙，非常感谢　！
(defun c:sz ()
(setq m(entlast));这句怎么改成用户在屏幕上选择一个数字？？用何语句？？
(setq dxf (entget m))
(setq a(cdr (nth 9 dxf)))
(setq b(cdr (nth 15 dxf)))
(print a )
(print b )

(princ)
)

使用entsel命令就可以了。

:
使用entsel命令就可以了。
谢谢你！问题解决了。

(defun c:sz ()
(setq m (car (entsel)))
(setq dxf (entget m))
(setq a (cdr (assoc 10 dxf)))
(setq b (cdr (assoc 40 dxf)))
(print a )
(print b )
(princ)
)
gbg