如何把画直线是显示的实时距离乘以2倍显示
此段代码来源于网络，我想实现的是 画直线的时候 显示的距离是 画出来的距离的2倍. . .谢谢(defun c:cc ()
(defun *error*(msg)
(if (and (/= msg "Function cancelled")(/= msg "函数被取消"))
(princ(strcat "警告:" msg "\n"))
)
(setvar "cmdecho" cmdsave)
(princ)
)
(setvar "osmode" 0)
(setq cmdsave (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq pt1 (getpoint "圆心："))
(if (/= pt1 nil)
(progn
(setq pt2 (getpoint pt1 "\n长度："))
(if (/= pt2 nil)
(progn (command "circle" pt1 pt2)
(command "point" pt2)
)
)
)
)
(setvar "cmdecho" cmdsave)
(setvar "osmode" 255)
(princ)
)
页:
[1]