程序有时有用有时没有用啊
绘制笑面,在画笑脸出现了问题(setvar "cmdecho" 0)
(princ "\n选取圆或Eenter自定圆心半径:")
(setq en (entsel))
(if (null en)
(progn
(setq cen (getpoint "请确定一点:"))
(setq rr (getreal "请输入半径:"))
(if (null rr) (setq rr 5))
(command "circle" cen rr)
(setq en (entlast))
)
(progn
(setq endata (entget (car en)))
(setq rr (cdr (assoc 40 endata)))
(setq cen (cdr (assoc 10 endata)))
)
)
(initget "A B C D ")
(setq facetype (getkword "\nA-喜,B-怒,C-哀,D-乐,<A>:"))
(if (null facetype)(setq facetype "A"))
(cond ((= facetype "A") (lsp_21a))
((= facetype "B") (lsp_21b))
((= facetype "C") (lsp_21c))
((= facetype "D") (lsp_21d));就是红色的地方
)
;(cond ((= facetype "A") (lsp_a));每次调试时就是在这个地方出现问题,说是函数被取消
;((= facetype "B") (lsp_b))
; ((= facetype "C") (lsp_c))
;((= facetype "D") (lsp_d))
; )
(prin1)
(defun lsp_21a();奇怪的是上面是(lsp_21a)下面显示的却还有用哪儿错呢lsp_21有时候有用有时候没有用这是为什么啊
(setq p1 (polar cen 0 (* 0.6 rr)))
(setq p2 (polar cen pi (* 0.6 rr)))
(command "arc" cen p2 p1)
(setq p3 (polar cen (/ pi 3) 3))
(setq p4 (polar cen (/ pi 1.5) 3))
(command "donut" 0 (/ rr 5) p3 "")
(command "donut" 0 (/ rr 5) p4 "")
)
(princ "\n---------->> LSP_21 <<----------")
(prin1)
向高手请教一下是什么原因呢
关闭捕捉试试.
页:
[1]