[LISP]诚求直线变曲线的lisp

逐月飞鸿

平时在作设计的时候，很多时候需要把好多平行的直线（这些直线的中点在共线）改为圆曲线，每次都是一根一根的改，有没有这样的lisp，提示点选圆心后，能一下把他们改为共心的弧线呢？先谢高手的帮助了！

ljpnb

能否贴个图，大概的意思我清楚，我希望看看你最终的结果是怎么样的。

meflying

看看是不是这个意思？

2. (defun c:test( / ss pt i ent ents pts pte os)
3.    (setq os (getvar "osmode"))
4.    
5.    (prompt "选择直线...")
6.    (setq ss (ssget '((0 . "LINE"))))
7.    (setq pt (getpoint "选择圆心:"))
8.    (setq i 0)
9.    (command "_.undo" "be")
10.    (setvar "osmode" 0)
11.    (repeat (sslength ss)
12.        (setq ent (ssname ss i))
13.        (setq ents (entget ent))
14.        (setq pts (cdr (assoc 10 ents)))
15.        (setq pte (cdr (assoc 11 ents)))
16.        (entdel ent)
17.        (command "_.arc" "c" pt pts pte)
18.        (setq i (1+ i))
19.    )
20.    (setvar "osmode" os)
21.    (command "_.undo" "e")
22.    (princ)
23. )

(defun c:test( / ss pt i ent ents pts pte os)    (setq os (getvar "osmode"))        (prompt "选择直线...")    (setq ss (ssget '((0 . "LINE"))))    (setq pt (getpoint "选择圆心:"))    (setq i 0)    (command "_.undo" "be")    (setvar "osmode" 0)    (repeat (sslength ss)        (setq ent (ssname ss i))        (setq ents (entget ent))        (setq pts (cdr (assoc 10 ents)))        (setq pte (cdr (assoc 11 ents)))        (entdel ent)        (command "_.arc" "c" pt pts pte)        (setq i (1+ i))    )    (setvar "osmode" os)    (command "_.undo" "e")    (princ) )

逐月飞鸿

谢谢！飞斑竹！很是好用！……

小妹丁

meflying发表于2005-4-4 18:20:00看看是不是这个意思？

有点意外的，“直线的中点在共线“不一定指定的圆心也在这条直线上。

meflying

估计楼主是将圆心放在这条直线上的，否则这样的圆弧就不存在，讨论没有意义，只要楼主觉得可以用就可以了

Ea

你在这里发的帖子？
http://www.xdcad.net/forum/showthread.php?s=&threadid=357078