CAD最常用快捷键(11)
时间:2025-07-08
时间:2025-07-08
CAD最常用快捷键
(setq tm 1 jc (cdr jc))
(while jc
(if (= '10 (car (car jc)))
(progn (cond ((= tm 1)(setq ppa (cdr (car jc))))
((= tm 2)(setq ppb (cdr (car jc))))
((= tm 3)(setq ppc (cdr (car jc))))
((= tm 4)(setq ppd (cdr (car jc))))
)
(setq tm (1+ tm))
)
)
(setq jc (cdr jc))
)
)
)
(setq ll1 (distance ppa ppb))
(setq ll2 (distance ppb ppc))
(setq ll3 (distance ppd ppc))
(if (null ba) (progn (command "pline" ppa ppb ppc ppd "")
(setq ba (entlast))
)
)
上一篇:在孩子的心灵播下爱的种子
下一篇:幼儿园随笔2012