[分享]：建筑城规描图专用小程序

wkai

很多时候手绘的图纸扫描后，需要重新用CAD描一遍，很多房子都是矩形或者正交的图形，不过可能彼此之间方向各异，描这种图时，总是要不停的转换UCS，感觉很烦。
用下面的程序就会方便太多太多了。
[PHP]
(defun c:tt (/ p1 p2 )
  (princ "\nWRITEN BY WKAI , XDCAD.NET , 20040611")
  (setvar "ORTHOMODE" 0)
  (setq p1 (getpoint "\n指定第一点:"))
  (setq p2 (getpoint p1 "\n指定下一点:"))
  (setq p1 (trans p1 1 0))
  (setq p2 (trans p2 1 0))
  (entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
  (command "_.ucs" "ob" (entlast))
  (entdel (entlast))
  (setvar "ORTHOMODE" 1)
  (command "_.pline" (trans p1 0 1) (trans p2 0 1))
)
[/PHP]

注意演示中，自动调整的UCS图标。
为了有更好的效果，请在新窗口观看演示