[求助]帮忙给看看一个练习程序！谢谢！

xhq1954425

本人是自学，在练习中常有困惑，下面的是要在屏幕上任选择一个数字，然后对它的数值进行处理……。请教如何把其中的(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)
 )

phoenixdjq

(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)
 )

试试这个

xhq1954425

回复phoenixdjq：

你的回复给我带来了好心情……，照你说得办，好使！非常感谢！

luowy

简单制作，自己调整

xhq1954425

回楼上：

下了你的程序，但运行不了，但对我有很好的参考价值，非常感谢！