[LISP程序]：按比例连续画线

梦断江南

;;;支持默认缩放比例
;;;支持连续点输入
:;;支持变换输入方式(取点/键入)
;;;支持按牵引线角度定位
;;;支持中途undo点位
<pre>
(defun c:ls ( / pt1 ppt pt) ;;;linem=输入值缩放比例－全局
(princ "ls----line增强---------xd论坛.梦断江南.dreamsky.lxx----2002.4")
(if (not linem)(setq linem 1))
(princ "\n比例值<")(princ linem)
(if (setq linemnew (getdist  ">:"))
     (setq linem linemnew)
)
(setq pt1 (getpoint "\n第一点：")
      ppt pt1
      loop "t")
(command "line" pt1)
(initget 128)
(while loop
   (setq pt (getpoint ppt "\n下一点："))
   (if (= (type pt)  'list)
       (command pt)
       (cond
          ((= "U" (strcase pt)) (command "u"))
          ((= nil pt) (command) (setq loop nil))
          (T (command (* (atof pt) linem)) )
       )
   )
   (initget 128)
   (setq ppt (getvar "lastpoint"))
)
(princ)
)
(princ "ls----line增强---------xd论坛.梦断江南.dreamsky.lxx----2002.4")[/FONT]
</pre>

;;补充
可以通过选取 图框块 得出块插入比例赋予 scalem 变量值,参考：
(setq scalem (cdr (assoc 41(entget (car (entsel))))))