[编程申请]：选定圆，则画一个矩形，矩形边长为该圆直径加300

lengliqun

求LSP程序：选定圆，则画一个矩形，矩形边长为该圆直径加300，矩形中心与圆心重合，能框选多个圆。谢谢。*-*2

boy_jun

是画桩承台吧，这个程序我也很想要，那位能帮忙编一下

xyp1964

矩形怎么画？可以画正方形：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;选定圆，则画一个边长为该圆直径加300的正方形。
(defun c:test ()
  (cmdla0)
  (setq        SS (ssget '((0 . "CIRCLE")))
        i  -1
  )
  (command"undo""BE")
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq leng (/  (+(* 2 (dxf 40 (entget s1)))300) 2)
          pt   (dxf 10 (entget s1))
          pt1  (list (- (car pt) leng) (- (cadr pt) leng))
          pt2  (list (+ (car pt) leng) (+ (cadr pt) leng))
    )
    (mkla"中心线"3)
    (xyp_szx pt (*(dxf 40 (entget s1))0.2))
    (mkla"承台"4)
    (command "rectang" pt1 pt2)
  )
  (command"undo""E")
  (cmdla1)
)
[/php]

lengliqun

是画承台啊。为何矩形边长反而比圆直径小了300，我希望是比圆直径大300啦。不会是大侠贪污了600罢，呵呵......

xyp1964

动作太快，发现后已修改，再试。
这个程序与“选数字画方块”的很相似。

lengliqun

经测试完全可用，谢谢。其实我原本就是想画正方形，谢谢。