1173| 11
|
求一个,3切点画圆的程序 |
20明经币
最佳答案(defun c:test(/ e1 e2 o2)
(setvar "cmdecho" 0)
(setq e1(entlast))
(princ "请连续选择三个切点")
(command ".circle" "_3p" "tan" pause "tan" pause "tan" pause)
(setq e2(entlast))
(if(null(eq e1 e2))
(if(>(vla-get-Diameter(setq o2(vlax-ename->vla-object e2)))1.0)(vla-put-Diameter o2 1.0))
)
(prin1)
)
| ||
发表于 2021-10-30 14:02:27
|
显示全部楼层
| ||
发表于 2021-10-30 22:23:02
|
显示全部楼层
| ||
发表于 2021-11-1 08:40:45
|
显示全部楼层
评分 | ||
发表于 2022-8-26 05:00:21
|
显示全部楼层
| ||
发表于 2022-8-26 10:17:57
|
显示全部楼层
点评
666666
| ||
发表于 2022-8-31 01:50:12
|
显示全部楼层
| ||