|
发表于 2008-11-21 23:25:49
|
显示全部楼层
ccd
错误: AutoCAD 变量设置被拒绝: "clayer" "T"
在2004版 只能分开使用内部程序。
(defun CCD4 ()
(setvar "cmdecho" 0)
(setq sp (getpoint "\n请输入起点<尖点>:"))
(setq a60 (/ PI 3))
(setq h (* 1.4 3.5))
(setq tan60 (/ (sin a60) (cos a60)))
(setq ap (list (- (car sp) (/ h tan60)) (+ h (cadr sp))))
(setq bp (list (+ (car sp) (/ (* 2 h) tan60)) (+ (* 2 h) (cadr sp))))
(setq cp (list (+ (car sp) (/ h tan60)) (+ h (cadr sp))))
(setq tep1 (list (car cp) (+ (+ h 0.7) (cadr sp))))
(setq tep2 (list (- (car sp) 4.25) (+ (cadr sp) 1.05)))
(setq cenp (list (car sp) (+ (cadr sp) 3.26)))
(setq qb "全部")
(setq qy "其余")
(command "line" "non" ap "non" sp "non" bp "")
(command "line" "non" cp "non" ap "")
(setq text1 (getstring "\n请输入表面粗糙度最大允许值:"))
(command "text" "r" "non" tep1 "3.5" "0" text1 )
(command "text" "r" "non" tep2 "5" "0" qy )
(command "color" "bylayer")
) |
|