学习中遇到的一个问题，请指教！
练习中的一个实例，附上代码，自己画出的圆与教材中的不一样，但不知什么原因。教材中圆的外侧有一段短线，而自己做出的却没有 不如直接求四个角点画圆,用command要关捕捉 maiko 发表于 2016-6-13 23:40 static/image/common/back.gif不如直接求四个角点画圆,用command要关捕捉
能否帮忙修改一下？ ;由两个角点画4个角点圆
(defun c:tt1()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n 第一角点:"))
(setq pt3 (getpoint "\另一角点:"))
;(setq pt3 (getcorner pt1 "\另一角点:"))
(setq pt2 (list (car pt3) (cadr pt1)))
(setq pt4 (list (car pt1) (cadr pt3)))
(setq rr (getdist pt1 "\n圆半径<5>:"))
(if (null rr) (setq rr 5.0))
(command "circle" "non" pt1 rr)
(setq en1 (entlast))
(command "line" "non" (polar pt1 pi (+ rr 50)) "non" (polar pt1 0 (+ rr 50)) "")
(setq en2 (entlast))
(command "line" "non" (polar pt1 (* pi 1.5) (+ rr 50)) "non" (polar pt1 (/ pi 2) (+ rr 50)) "")
(setq en3 (entlast))
(command "copy" en1 en2 en3 "" "m" "non" pt1 "non" pt2 "non" pt3 "non" pt4 "")
(prin1)
)
ZZXXQQ 发表于 2016-6-14 08:11 static/image/common/back.gif
多谢多谢，已经解决了问题，原来是多加了一个“non”。可是还有一个问题，请问哪里可以学习CAD命令的具体定义方法，比如画圆、画弧或者镜像等操作？就是commond后面的内容的定义方法 jiasui924521 发表于 2016-6-14 22:12 static/image/common/back.gif
多谢多谢，已经解决了问题，原来是多加了一个“non”。可是还有一个问题，请问哪里可以学习CAD命令的具体 ...
这个命令好像不行，其实就是划线的命令“line”
页:
[1]