yang686526

[求助]帮忙给看看一个练习程序！谢谢！
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)
)
d
(defun c:sz ()
(setq m (car (entsel "\n 选择:")));这句怎么改成用户在屏幕上选择一个数字？？用何语句？？
(setq dxf (entget m))
(setq a(cdr (nth 9 dxf)))
(setq b(cdr (nth 15 dxf)))
(print a )
(print b )

(princ)
)
试试这个
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
【送花】 问题解决，献花一朵，略表谢意！ 鲜花+1 [xhq1954425 |
d
回复phoenixdjq：
你的回复给我带来了好心情……，照你说得办，好使！非常感谢！
d
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
简单制作，自己调整
d
回楼上：
下了你的程序，但运行不了，但对我有很好的参考价值，非常感谢！
d