请问怎样转化选定的弧线成为直线？

fantan · 发表于 2004-6-20 23:38:00

需要的就是把弧线的两个端点用直线连接起来，有很多弧线，不一定都在一个平面内
我写了一个但是不知道为什么不能用
(defun c:atl ()
   (prin1 "\请选择需要转化成直线的圆弧:")
   (setq ss (ssget))
   (VL-LOAD-COM)
   (setq AcadObject    (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace    (vla-get-ModelSpace Acaddocument)
   )
   (setq i 0)
   (setvar "pdmode" 33)
   (repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq arcObj (entget ssn))
   (setq startPnt1 (vla-get-StartPoint arcObj))
   (setq endPnt1 (vla-get-EndPoint arcObj))
   (setq i (1+ i))
   (command "line" startPnt1 endPnt1 "")
   )
)
以前没有用过activex，请多指教！
本来我是想先把arc转化为pline然后再连成直线，但是空间上好像这个方法行不通

alin · 发表于 2004-6-21 00:23:00

(defun c:atl ()
   (prin1 "\请选择需要转化成直线的圆弧:")
   (setq ss (ssget))
   (VL-LOAD-COM)
   (setq AcadObject    (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace    (vla-get-ModelSpace Acaddocument)
   )
   (setq i 0)
   (setvar "pdmode" 33)
   (repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq arcObj (VLAX-ENAME->VLA-OBJECT ssn))
   (setq startPnt1 (vla-get-StartPoint arcObj))
   (setq endPnt1 (vla-get-EndPoint arcObj))
   (setq i (1+ i))
   (VLA-ADDLINE MSPACE startPnt1 endPnt1)
   )
)

fantan · 发表于 2004-6-21 14:47:00

多谢alin
现又有一个问题，就是我想把点转化为lisp的格式怎么不管用？
(defun c:atl ()
   (prin1 "\请选择需要转化成直线的圆弧:")
   (setq ss (ssget))
   (VL-LOAD-COM)
   (setq AcadObject    (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace    (vla-get-ModelSpace Acaddocument)
   )
   (setq i 0)
   (setvar "pdmode" 33)
   (repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq arcObj (VLAX-ENAME->VLA-OBJECT ssn))
   (setq startPnt1 (vla-get-StartPoint arcObj))
   (setq endPnt1 (vla-get-EndPoint arcObj))
   (setq p1 (vlax-vla-object->ename startPnt1))
   (setq p2 (vlax-vla-object->ename endPnt1))
   (setq i (1+ i))
   (command "line" p1 p2 "")
   )
   (COMMAND "ERASE" SS "")
   (prin1)
)

alin · 发表于 2004-6-21 15:22:00

(setq p1 (vlax-safearray->list (vlax-variant-value startPnt1)))

fantan · 发表于 2004-6-21 23:46:00

再次感谢alin兄，不过还有个问题想麻烦你，不知道为什么下边的程序不能用？总是说ssget列表错误？
(setq lay (getstring ":"))
(setq ss (ssget "x"
'((-4 . "")
   (-4 . "")
   (-4 . "or>")
   )
   )
)