可我下不了了 请问大神 文字样式可能设置?默认的格式是哪种? 为什么不能下载啊? de.lsp-在圖上標上座標(xE,yN)
(defun c:de ()
(setvar "cmdecho" 0)
(command "osnap" "end")
(setq p1 (getpoint "Select line near endpoint"))
(setq p2 (getpoint p1 "Select cen of Leader"))
(setq px (rtos (nth 0 p1 ) 2 4))
(setq py (rtos (nth 1 p1 ) 2 4))
(setq txt (strcat "x " px " , " "y " py))
(command "dim1" "leader" p1 p2 "" txt)
(setvar "cmdecho" 1)
) 回复 1# songwa99
支持原创 看看学习一下! 感谢楼主
页:
1
[2]