(defunc:gg(/abb1p1dpckbox)(PRINC"\双向偏移\(2005.8.8胡晓航\)")(setqd20p1nilpee(/pi2)e3pckbox(getvar"pickbox")line"")(if(=#parofnil)(setq#parof(/(getvar"viewsize")10)))(pr...
(defun c:gg (/ a b b1 p1 d pckbox)
(PRINC "\ 双向偏移 \(2005.8.8胡晓航\) ")
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")
(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))
(princ "\n当前偏移量
(setq answer(getstring ">: "))
(if (/= (atof answer) 0.0)(setq #parof(atof answer)))
(princ line)
(setvar "pickbox" pckbox)
(setq ent(entsel "\n拾取线： "))
(setvar "pickbox" 2)
(setq point(cadr ent))
(princ line)
(setq side(getpoint "\n拾取要偏移的一方： "))
(setq dist(distance side point))(setq ang(angle side point))
<
最低0.47元/天 解锁文章
255
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
