[求助]LSP菜鸟求助:执行命令前显示系统变量值

andyding

大侠们,我是只懂一点LSP皮毛的菜鸟,我想在自编的LSP命令执行前显示系统变量值.
如:command:CHA
(TRIM mode) Current chamfer Length = 1.500000, Angle = 45.000000
Select first line or [Polyline/Distance/Angle/Trim/Method]:
也就是显示如上灰色背景的变量值.
请大侠们赐教!谢了谢了谢谢了!!!

wudongwei

建议的程序如下: (defun c:daojiaots ( / )
(setvar "chamferc" 1.5)
(setvar "chamferd" 45.0)
(setq c (getvar "chamferc"))
(setq d (getvar "chamferd"))
(setq tm (getvar "trimmode"))
(if (= tm 1)
(setq tm1 "(TRIM mode)")
(setq tm1 "( NO TRIM mode)")
)
(print);;命令行另起一行显示提示
(prompt (strcat tm1 " Current chamfer Length = " (rtos c 2 1) ","" Angle = "(rtos d 2 4)))
(princ)
)

无痕

(defun c:test ( / )
(mapcar 'princ (list (if (= 1 (getvar "trimmode") ) "(TRIM mode)" "( NO TRIM mode)") " Current chamfer Length = " (getvar "chamferc") ", Angle = " (getvar "chamferd")))(princ)
)

andyding

谢谢无痕及wodongwei两位大侠!


但愿能在学LSP的途中继续得到大侠们的帮助,谢谢!!