[编程申请]：帮忙`~~多段线画的圆转成圆的LSP

zlzlzlzl

帮忙`~~多段线画的圆怎么转成圆？？

Free-Lancer

In AutoCAD 2008

命令: _explode
选择对象: 指定对角点: 找到 1 个

选择对象:
命令: j JOIN 选择源对象:
期望直线、开放的多段线、圆弧、椭圆弧或开放的样条曲线。选择受支持的对象:
选择圆弧，以合并到源或进行 [闭合(L)]:  指定对角点:
窗交窗口中未包括任何对象。
选择圆弧，以合并到源或进行 [闭合(L)]:

命令:
命令:  JOIN
选择圆弧，以合并到源或进行 [闭合(L)]:
选择要合并到源的圆弧:  找到 0 个
选择要合并到源的圆弧:  找到 1 个
合并的弧线段组成了一个圆。要转换为圆吗？[是(Y)/否(N)] <是>:
已合并 2 个圆弧，并将它们转换为圆

zlzlzlzl

有没有低版本用的LSP程序呢`？？？

zxq0220

[php]
;复线圆--圆  zxq0220 2007.11.7
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(IF (SETQ SS (SSGET "X" '((0 . "LWPOLYLINE") (70 . 1) (42 . 1.0)))) (PROGN
  (COMMAND ".UNDO" "BE")
  (SETVAR "OSMODE" 0)
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ EN (SSNAME SS (SETQ I (1+ I)))
               ENT (ENTGET EN)
               PT1 (CDR (ASSOC 10 ENT))
                PT2 (CDR (ASSOC 10 (REVERSE ENT)))
                R (/ (DISTANCE PT1 PT2) 2)
                PC (POLAR PT1 (ANGLE PT1 PT2) R))
   (COMMAND "ERASE" EN "" "CIRCLE" PC R)
  )
  (SETVAR "OSMODE" OLDOS)
  (COMMAND ".UNDO" "E")
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

zlzlzlzl

怎么加载后，使用没反映呢`？？？？？？？？

zxq0220

不知道你的多段线的圆是如何画的。

zlzlzlzl

命令: _pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: a
指定圆弧的端点或
[角度(A)/圆心(CE)/方向(D)/半宽(H)/直线(L)/半径(R)/第二个点(S)/放弃(U)/宽度(W)]:
400

zxq0220

这样试试:
[php]
;复线圆--圆  zxq0220 2007.11.12
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(IF (SETQ SS (SSGET "X" '((0 . "LWPOLYLINE") (70 . 1) (42 . -1.0)))) (PROGN
  (COMMAND ".UNDO" "BE")
  (SETVAR "OSMODE" 0)
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ EN (SSNAME SS (SETQ I (1+ I)))
         ENT (ENTGET EN)
                 PT1 (CDR (ASSOC 10 ENT))
                 PT2 (CDR (ASSOC 10 (REVERSE ENT)))
                 R (/ (DISTANCE PT1 PT2) 2)
                 PC (POLAR PT1 (ANGLE PT1 PT2) R))
   (COMMAND "ERASE" EN "" "CIRCLE" PC R)
  )
  (SETVAR "OSMODE" OLDOS)
  (COMMAND ".UNDO" "E")
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]