autolisp 里面怎么调用画圆命令给一个三角形画内切圆啊?

mrg999

 

autolisp 里面怎么调用画圆命令给一个三角形画内切圆啊?在绘图>>圆>>里可以看到"相切,相切,相切(A)",但怎么调用这个呢?
我用的是AutoCAD2006.
试过(command "circle" "A" aa bb cc ),但是不行.请高手指点一下!谢谢!

ljpnb

是不是这样:

(DEFUN C:TTT ()
  (COMMAND "CIRCLE" "3P" "TAN" PAUSE "TAN" PAUSE "TAN")
)

mrg999

ljpnb发表于2008-11-12 17:05:00是不是这样DEFUN C:TTT ()  (COMMAND \"CIRCLE\" \"3P\" \"TAN\" PAUSE \"TAN\" PAUSE \"TAN\"))

谢谢!这样是可以做,但是这样跟直接用"相切,相切,相切"来画没什么区别,能不能直接把我程序前面已经获得的三条边的参数放进去,然后让程序自动完成画内切圆,而不用再去选一次呢.

05625lcc

你可以在

(DEFUN C:TTT ()
  (COMMAND "CIRCLE" "3P" "TAN" PAUSE "TAN" PAUSE "TAN")
)

中把三角形的三条边分别用(setq sg1 (entlast))等标记下,再

(COMMAND "CIRCLE" "3P" "TAN" sg1 "TAN" sg2 "TAN" sg3)

即可.

05625lcc

画三角形时用(setq sg1 (entlast))

...

后再

  (COMMAND "CIRCLE" "3P" "TAN" sg1 "TAN" sg2 "TAN" sg3)

sophiazzj

先把“对象捕捉”设置，只选择“延伸”和“切点”
命令C_3P_光标在3条线上取点即可，光标会显示出"递延切点"

zhynt

三角形的三个角平分线的交点即为内切圆的圆心，圆心至任一条边得垂直距离为半径，作圆。

highflybird

回复 mrg999 的帖子

1. (defun c:test (/ ss e1 e2 e3)
   
2.   (setq ss (ssget))
   
3.   (setq e1 (ssname ss 0))
   
4.   (setq e2 (ssname ss 1))
   
5.   (setq e3 (ssname ss 2))
   
6.   (defun mid (e / dxf pt1 pt2)
   
7.     (setq dxf (entget e))
   
8.     (setq pt1 (cdr (assoc 10 dxf)))
   
9.     (setq pt2 (cdr (assoc 11 dxf)))
   
10.     (mapcar '* (mapcar '+ pt1 pt2) '(0.5 0.5 0.5))
    
11.   )
    
12.   (command ".circle" "_3p"  "_tan" (mid e1) "_tan" (mid e2) "_tan" (mid e3))
    
13.   (princ)
    
14. )
    

(defun c:test (/ ss e1 e2 e3)<br />   (setq ss (ssget))<br />   (setq e1 (ssname ss 0))<br />   (setq e2 (ssname ss 1))<br />   (setq e3 (ssname ss 2))<br />   (defun mid (e / dxf pt1 pt2)<br />     (setq dxf (entget e))<br />     (setq pt1 (cdr (assoc 10 dxf)))<br />     (setq pt2 (cdr (assoc 11 dxf)))<br />     (mapcar '* (mapcar '+ pt1 pt2) '(0.5 0.5 0.5))<br />   )<br />   (command ".circle" "_3p"  "_tan" (mid e1) "_tan" (mid e2) "_tan" (mid e3))<br />   (princ)<br /> )<br />

以上代码没有出错处理。请自行添加。

Gu_xl

回复 mrg999 的帖子

1. ;;; (gxl-get3parea p1 p2 p3) 返回三角形 p1p2p3 的面积. 点逆时针为正，顺时针为负
   
2. ;(gxl-get3parea  (getpoint) (getpoint) (getpoint))
   
3. (defun gxl-get3parea (p1 p2 p3)
   
4.   (* 0.5
   
5.   (- (+        (* (car p1) (cadr p2))
   
6.         (* (car p2) (cadr p3))
   
7.         (* (car p3)
   
8.            (cadr p1)
   
9.         )
   
10.      )
    
11.      (* (car p1) (cadr p3))
    
12.      (* (car p2) (cadr p1))
    
13.      (*        (car p3)
    
14.         (cadr p2)
    
15.      )
    
16.   )
    
17.      )
    
18. )
    
19. ;;;(gxl-get3pInnerCircle p1 p2 p3) 由三点计算内切圆圆心、半径，返回 '(圆心坐标 半径)
    
20. ;;;(gxl-get3pInnerCircle (getpoint) (getpoint) (getpoint))
    
21. (defun gxl-get3pInnerCircle (p1 p2 p3 / s a b c d r a2 angmid )
    
22.   (setq s (gxl-get3parea p1 p2 p3)
    
23.         a (distance p1 p2)
    
24.         b (distance p2 p3)
    
25.         c (distance p3 p1)
    
26.         r (/ (+ s s) (+ a b c))
    
27.         angmid (* 0.5 (+ (angle p1 p2) (angle p1 p3))) ;_ P1处角平分线
    
28.         a2 (* 0.5 (- (angle p1 p3) (angle p1 p2))) ;_ 夹角一半
    
29.         d (/ r (sin a2))
    
30.         )
    
31.   (list (polar p1 angmid d) (abs r))
    
32.   )
    
33. ;测试 函数
    
34. (defun c:tt(/ p1 p2 p3 data)
    
35.   (setq os (getvar 'osmode))
    
36.   (setvar 'osmode 0)
    
37.   (setq p1 (getpoint "\n三角形第1点:")
    
38.         p2 (getpoint p1 "\n三角形第2点:")
    
39.         )
    
40.   (command "line" p1 p2 "")
    
41.   (setq p3 (getpoint p2 "\n三角形第3点:"))
    
42.   (command "line" p2 p3 p1 "")
    
43.   (setq data (gxl-get3pInnerCircle p1 p2 p3)
    
44.         cp (car data)
    
45.         r (cadr data)
    
46.         )
    
47.   (command "circle" cp r)
    
48.   (setvar 'osmode os)
    
49.   (princ)
    
50.   )
    

;;; (gxl-get3parea p1 p2 p3) 返回三角形 p1p2p3 的面积. 点逆时针为正，顺时针为负<br /> ;(gxl-get3parea  (getpoint) (getpoint) (getpoint))<br /> (defun gxl-get3parea (p1 p2 p3)<br />   (* 0.5<br />   (- (+        (* (car p1) (cadr p2))<br />         (* (car p2) (cadr p3))<br />         (* (car p3)<br />            (cadr p1)<br />         )<br />      )<br />      (* (car p1) (cadr p3))<br />      (* (car p2) (cadr p1))<br />      (*        (car p3)<br />         (cadr p2)<br />      )<br />   )<br />      )<br /> )<br /> ;;;(gxl-get3pInnerCircle p1 p2 p3) 由三点计算内切圆圆心、半径，返回 '(圆心坐标 半径)<br /> ;;;(gxl-get3pInnerCircle (getpoint) (getpoint) (getpoint))<br /> (defun gxl-get3pInnerCircle (p1 p2 p3 / s a b c d r a2 angmid )<br />   (setq s (gxl-get3parea p1 p2 p3)<br />         a (distance p1 p2)<br />         b (distance p2 p3)<br />         c (distance p3 p1)<br />         r (/ (+ s s) (+ a b c))<br />         angmid (* 0.5 (+ (angle p1 p2) (angle p1 p3))) ;_ P1处角平分线<br />         a2 (* 0.5 (- (angle p1 p3) (angle p1 p2))) ;_ 夹角一半<br />         d (/ r (sin a2))<br />         )<br />   (list (polar p1 angmid d) (abs r))<br />   )<br /> ;测试 函数<br /> (defun c:tt(/ p1 p2 p3 data)<br />   (setq os (getvar 'osmode))<br />   (setvar 'osmode 0)<br />   (setq p1 (getpoint "\n三角形第1点:")<br />         p2 (getpoint p1 "\n三角形第2点:")<br />         )<br />   (command "line" p1 p2 "")<br />   (setq p3 (getpoint p2 "\n三角形第3点:"))<br />   (command "line" p2 p3 p1 "")<br />   (setq data (gxl-get3pInnerCircle p1 p2 p3)<br />         cp (car data)<br />         r (cadr data)<br />         )<br />   (command "circle" cp r)<br />   (setvar 'osmode os)<br />   (princ)<br />   )<br />

shuangyihu

Gu_xl 发表于 2011-7-20 16:52
回复 mrg999 的帖子

高手就是不一般、