[LISP程序]：钢筋辅助绘图工具_调整钢筋点距离混凝土边界的距离

zml84

钢筋辅助绘图工具_调整钢筋点距离混凝土边界的距离.lsp

--------------------------------------------------------------------------------

[php]
;;;=============================
;;;      钢筋辅助绘图工具
;;;功能：调整钢筋点距离混凝土边界的距离
(defun C:G1 (/ SS1 SS2 DIST I EN ENT PT10 PT0 PT_NEW)
    (if        (and (setq SS1 (entsel "\n点取混凝土边界线: "))
             (princ "\n选择钢筋点...")
             (setq SS2 (ssget '((0 . "CIRCLE,INSERT"))))
             (setq DIST (getdist "\n请输入设定距离: "))
        )
        (progn
            (setq I 0)
            (repeat (sslength SS2)
                (setq EN   (ssname SS2 I)
                      ENT  (entget EN)
                      PT10 (cdr (assoc 10 ENT))
                )
                (setq PT0    (VLAX-CURVE-GETCLOSESTPOINTTO (car SS1) PT10) ;_线上的最近点
                      PT_NEW (polar PT0 (angle PT0 PT10) DIST)
                )
                (setq ENT (subst (cons 10 PT_NEW) (assoc 10 ENT) ENT))
                (entmod ENT)
                ;;
                (setq I (1+ I))
            )
        )
    )
    (princ)
)
[/php]

feiyvt

楼主辛苦了～