学习中遇到的一个问题，请指教！

jiasui924521 · 发表于 2016-6-13 22:03:15

练习中的一个实例，附上代码，自己画出的圆与教材中的不一样，但不知什么原因。教材中圆的外侧有一段短线，而自己做出的却没有

maiko · 发表于 2016-6-13 23:40:40

不如直接求四个角点画圆,用command要关捕捉

jiasui924521 · 发表于 2016-6-14 06:41:08

maiko 发表于 2016-6-13 23:40
不如直接求四个角点画圆,用command要关捕捉

能否帮忙修改一下？

ZZXXQQ · 发表于 2016-6-14 08:11:03

;由两个角点画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)
)

jiasui924521 · 发表于 2016-6-14 22:12:49

ZZXXQQ 发表于 2016-6-14 08:11

多谢多谢，已经解决了问题，原来是多加了一个“non”。可是还有一个问题，请问哪里可以学习CAD命令的具体定义方法，比如画圆、画弧或者镜像等操作？就是commond后面的内容的定义方法

jiasui924521 · 发表于 2016-6-17 15:18:18

jiasui924521 发表于 2016-6-14 22:12
多谢多谢，已经解决了问题，原来是多加了一个“non”。可是还有一个问题，请问哪里可以学习CAD命令的具体 ...

这个命令好像不行，其实就是划线的命令“line”

账号		自动登录	找回密码
密码			注册

[提问] 学习中遇到的一个问题，请指教！