[编程申请]：求LSP程序，强迫直线LINE水平或垂直

狂刀

端点纵横误差为距离值内的直线均被校正

huiling6868

谢谢狂刀!会用了.

xyp1964

输入距离方式：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;校正水平、垂直直线
(defun c:test ()
  (cmdla0)
  (if (setq d  (ureal 1 "" "\n角度误差值" d)
            ss (ssget '((0 . "LINE")))
            i  -1
      )
    (while (setq e (ssname ss (setq i (1+ i))))
      (setq ent         (entget e)
            pt10 (dxf 10 ent)
            pt11 (dxf 11 ent)
            ang         (rad2ang (angle pt10 pt11))
      )
      (cond
        ((or (< ang d) (< (abs (- ang 180)) d) (< (abs (- ang 360)) d))
         (sub_upd e 11 (list (car pt11) (cadr pt10) (caddr pt10)))
        )
        ((or (< (abs (- ang 90)) d) (< (abs (- ang 270)) d))
         (sub_upd e 11 (list (car pt10) (cadr pt11) (caddr pt10)))
        )
        (T nil)
      )
    )
  )
  (cmdla1)
)
[/php]

xyz518mm

不錯的程序喔
可以修正不小心畫錯的問題