畫三角形的內切圓畫不出來

lead009

在圖面上既有的三角形，點選三邊長後畫出內切圓

我是我用的畫不出來

請各位幫我一下

 

;;;得內切圓
(defun C:vccircle()
  (setq l1(cadr(entsel "slect a line")))
  (setq l2(cadr(entsel "slect a line")))
  (setq l3(cadr(entsel "slect a line")))
  (setq mp1(osnap l1 "mid"))
  (setq mp2(osnap l2 "mid"))
  (setq mp2(osnap l2 "mid"))
  (command "circle" "3P" "tan" mp1 "tan" mp2 "tan" mp3)

Andyhon

(defun C:vccircle()
  (setq l1(cadr(entsel "slect a line")))
  (setq l2(cadr(entsel "slect a line")))
  (setq l3(cadr(entsel "slect a line")))
  ;|
  (setq mp1(osnap l1 "mid"))
  (setq mp2(osnap l2 "mid"))
  (setq mp3(osnap l3 "mid"))
  |;
  (command "circle" "3P" "tan" l1 "tan" l2 "tan" l3)
)

 

or
(defun C:vccircle()
  (command "circle" "3P" "tan" pause "tan" pause "tan" pause)
)

lead009

謝謝你，我的問題解決了

但是我有一個疑問

 

就是為什麼點"線"，內接圓就可以成立

點"點"的時候卻出現了nil ??

 

 

 

ZZXXQQ

不知楼主到底要画什么？

如果只是按特征点画圆，就要在程序中加入判断条件。