【已解决】关于昨天那个算量软件问题求教

51895991

• (defun c:tt ()
•   (xdrx_begin)
•   (xdrx_sysvar_push '("dimzin" 0))
•   (if (not #xd_var_textheight)
•     (setq #xd_var_textheight 3.5)
•   )
•   (if (setq h (getreal
•                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
•               )
•       )
•     (setq #xd_var_textheight h)
•   )
•   (while (and (setq scl (getreal "\n输入乘数<退出>:"))
•               (setq e (car (xdrx_entsel
•                              "\n拾取曲线<退出>:"
•                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
•                            )
•                       )
•               )
•          )
•          (setq len (xdrx_getpropertyvalue e "length")
•                str (rtos len 2 2)
•                str (strcat str
•                            "*("
•                            (rtos scl 2 2)
•                            ")="
•                            (rtos (* scl len) 2 2)
•                            "m2"
•                    )
•          )
•          (xdrx_text_make
•            '(0 0 0)
•            str
•            h
•            (xdrx_vector_angle (getvar "ucsxdir"))
•          )
•          (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
•   )
•   (xdrx_sysvar_pop)
•   (xdrx_end)
•   (princ)
• )
• 
  

可 可否改下输入乘数<退出>    1.可以重复上次的输入，     2. \n拾取曲线<退出>可否改拾取线后变色   可否测量拾取  3.4000可以改成4米吗  谢谢了

newer

同一个的问题别发不同的帖子，

如果问题有延伸，比如新的功能，要发新贴，把原来那个帖子的链接给附上，方便前后的参考。

这个问题，回原帖子讨论吧，我在那个帖子回你了。

51895991

好的，知道了谢谢

yangjian001

把原来那个帖子的链接给附上