AutoCAD 用lsp怎么快速画正方形?
假设要画200x200的正方形,普通方法是按REC,再按D,按200回车,再按200回车。
这样比较繁复,有没LSP
输入2,就直接画出200x200的正方形。
输入3,就直接画出300x300的正方形.
ç±äºæ¯ç»å¶æ£æ¹å½¢ï¼ä»£ç å°±æä¸å¿ç¹ä¸ºåºç¹ç»å¶ï¼
;ç»å¶æ£æ¹å½¢(defun c:tes ( / %k1 n n1 p1 p2 p3 p4)
(if (null %k) (setq %k 2.0) )
(initget 4)
(if (setq %k1 (getreal (strcat "\n请è¾å ¥æ£æ¹å½¢è¾¹é¿é»è®¤:<" (rtos %k) ">")))
(setq %k %k1)
(setq %k1 %k)
)
(setq n (* 50 %k1) n1 (* -1 n));è¾å ¥çè¾¹é¿æ°å¼æ¾å¤§100å
(while (setq p1 (getpoint "\n请è¾å ¥æ£æ¹å½¢ä¸å¿ç¹"))
(setq p2 (mapcar '+ p1 (list n n1))
p3 (mapcar '+ p1 (list n n))
p4 (mapcar '+ p1 (list n1 n))
p1 (mapcar '+ p1 (list n1 n1))
)
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) '(38 . 0) (cons 10 p1) (cons 10 p2) (cons 10 p3) (cons 10 p4)))
)
(princ)
)
温馨提示:答案为网友推荐,仅供参考