lifuq1979 发表于 2017-11-24 22:20:30

区域高程值增减

本帖最后由 lifuq1979 于 2017-11-24 22:48 编辑

此程序自明经搜集修改：
(defun c:+gcd ()
(setvar "cmdecho" 0)
(setq SS (car (entsel "\n请选择边界线: ")))
(setq SSS (getreal "\n请输入改正值: "))      
(setq s (ssget "wp" (get-pl-ptlst ss) '((0 . "INSERT") (8 . "GCD"))))
(setq s1 (sslength s))
(setq i 0)
(repeat s1
(setq s2 (ssname s i))
(setq s3 (entget s2))
(setq s4 (assoc 10 s3))
(setq s5 (cdr s4))
(setq sj (+ SSS (caddr s5)))
(setq s6 (list 10 (car s5) (cadr s5) sj))
(entmod (subst s6 s4 s3))
;(entupd s2)
(setq i (1+ i))
)
(princ "\n已修改完成")
)

;---------------------------------------------
;;[函数]取得多义线顶点表的最短代码 mkhsj928
(defun get-pl-ptlst (plent / ptlst)
   (vl-load-com)
   (setq      ptlst (vl-remove-if
                '(lambda (x)
                   (/= 10 (car x))
               )
                (entget plent)
            )
   )
   (mapcar 'cdr ptlst)
)
高程圆点修改了，请问该如何让高程点的文字值跟着变化



lifuq1979 发表于 2017-11-24 22:39:46

(entupd s2)为什么出错

lifuq1979 发表于 2017-11-25 22:43:13

已解决……………………

fan_zh 发表于 2017-11-28 12:57:15

自定义函数，未定义
程序中已注释掉了，可以删掉它试试
页: [1]
查看完整版本: 区域高程值增减