auto cad中级考试试题

只看该作者 · 发表于 2006-9-11 21:29:01

本以为中级没什么看得，可是有一道题看了之后竞不知如何下手，附图第五题，查了有关资料，好像要编辑什么宏指令，不知哪位仁兄搞过，还望赐教

只看该作者 · 发表于 2006-9-21 10:33:47

顶起,好难的题啊.谁会?

只看该作者 · 发表于 2006-9-21 20:05:11

不会吧，中级要考编程呀，没有学过VBA or lisp一定过不了，这个题好像是用VBA

只看该作者 · 发表于 2006-9-21 20:05:29

三个小时，屁股也快坐痛了

只看该作者 · 发表于 2006-10-30 09:32:13

...........................................................................

只看该作者 · 发表于 2006-10-30 17:02:09

这个是中级的题目么?

只看该作者 · 发表于 2006-10-31 08:56:17

(defun C:cc1()
(setq pt1(getpoint "\n请指定第一点位置:"))
(command "circle" pt1 "10" "")
(princ)
)

只看该作者 · 发表于 2006-10-31 08:57:01

(defun C:cc2()
(setq pt1(getpoint "\n请指定第一点位置:"))
(command "circle" pt1 "10" "")
(command "polygon" "3" pt1 "c" "10" "")
(princ)
)

只看该作者 · 发表于 2006-10-31 08:57:22

(defun c:cc3()
(setvar "cmdecho" 0)
(setq en1 (entsel))
(setq en2 (entsel))
(setq pts1 (cadr en1))
(setq pts2 (cadr en2))
(command "circle" "ttr" pts1 pts2 "20" "" )
(princ)
)

只看该作者 · 发表于 2006-10-31 08:57:40

(defun c:cc4()
(setvar "cmdecho" 0)
(setq en1 (entsel))
(setq en2 (entsel))
(setq pts1 (cadr en1))
(setq pts2 (cadr en2))
(command "line" "tangent" pts1 "tangent" pts2 "" )
(princ)
)

[讨论] auto cad中级考试试题

本帖子中包含更多资源