关于创建弧线

lisp_beginner

谢谢各位的帮助，下面是创建一个半径50，起始角0，终止角270的代码

(defun C:test (/ pt p1 p2)
  (if (setq pt (getpoint "\n弧的圆心: ")
            p1 (polar pt (angtof "0") 50)
            p2 (polar pt (angtof "270") 50)
      )
    (command "_.ARC" "C" "_non" pt "_non" p1 "_non" p2)
  )
  (princ)
)


，我用了ARC命令创建，听说用命令不好，还有其他的创建方法吗？

iLisp

不能创建360度的ARC，这是规矩

lisp_beginner

iLisp 发表于 2016-9-2 14:33
不能创建360度的ARC，这是规矩

感谢回复，是我写错了，代码里面没错，是终止角270度

Lisphk

可以这样写

1. (defun c:tt (/ ms pt)
   
2.   (setq ms (vla-get-modelspace (vla-get-activedocument
   
3.                                                        (vlax-get-acad-object)
   
4.                                )
   
5.            )
   
6.         pt (vlax-3d-point (getpoint "\n圆心："))
   
7.   )                                       
   
8.   (vla-addArc ms pt 50 0 (* 3 (/ pi 2.0)))
   
9. )
   
10. 
    

(defun c:tt (/ ms pt)<br />   (setq ms (vla-get-modelspace (vla-get-activedocument<br />                                                        (vlax-get-acad-object)<br />                                )<br />            )<br />         pt (vlax-3d-point (getpoint "\n圆心："))<br />   )                                       <br />   (vla-addArc ms pt 50 0 (* 3 (/ pi 2.0)))<br /> )<br /> <br />