批量修改高程点（加减常数）

范建威 · 发表于 2014-2-12 00:38:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ObjectARX 于 2019-2-28 20:07 编辑

(defun c:1()
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq num (getreal"\n输入修改高程常数:"))
(command "EXPLODEGCD" (ssget "X" '((8 . "GCD"))) "") ;;;; 选择"GCD"图层图元将高程点打散
(setq i 0)
(prompt "请选择要修改的高程: ")
(setq ss (ssget '((8 . "GCD"))));;;单独自我选择
(if (= ss nil) (setq ss (ssget "X" '((8 . "GCD")))));;;全部智能选择
(repeat (sslength SS);;; "repeat循环"
(setq ent (ssname ss i))
(setq typ (Vlax-Get (Vlax-Ename->Vla-Object ent) 'ObjectName ))
(if (= typ "AcDbBlockReference")
(progn
(Setq pt1 (Vlax-Get (Vlax-Ename->Vla-Object ent) 'InsertionPoint ));;;获取搞成点块参照的坐标
(setq y (rtos (nth 0 pt1)2 3))
(setq x (rtos (nth 1 pt1)2 3))
(setq z (nth 2 pt1))
(setq z1 (rtos (+ z num)2 2));;;常数修改
(setq pt (read (strcat "(" y " " x " " z1")")))
(entmod (subst (cons 10 pt) (assoc 10 (entget ent)) (entget ent) ));;;替换 Z 数据
)
)(setq i (+ 1 i))
)
(command "RESUMEGCD" (ssget "X" '((8 . "GCD"))) "")
(setvar "cmdecho" oldcmdecho)
(princ)
)

(defun c:1() 
(setq oldcmdecho (getvar "cmdecho")) 
(setvar "cmdecho" 0) 
(setq num (getreal"\n输入修改高程常数:")) 
(command "EXPLODEGCD" (ssget "X" '((8 . "GCD"))) "")  ;;;;  选择"GCD"图层图元 将高程点打散 
(setq i 0) 
(prompt "请选择要修改的高程: ") 
(setq ss (ssget '((8 . "GCD"))));;;单独自我选择 
(if (= ss nil) (setq ss (ssget "X" '((8 . "GCD")))));;;全部智能选择 
(repeat (sslength SS);;;   "repeat循环" 
  (setq ent (ssname ss i)) 
  (setq typ (Vlax-Get (Vlax-Ename->Vla-Object ent) 'ObjectName )) 
  (if (= typ "AcDbBlockReference") 
    (progn 
      (Setq pt1 (Vlax-Get (Vlax-Ename->Vla-Object ent) 'InsertionPoint ));;;获取搞成点块参照的坐标 
      (setq y (rtos (nth 0 pt1)2 3)) 
      (setq x (rtos (nth 1 pt1)2 3)) 
      (setq z (nth 2 pt1)) 
      (setq z1 (rtos (+ z num)2 2));;;常数修改 
      (setq pt (read (strcat "(" y " " x " " z1")"))) 
        (entmod (subst (cons 10 pt) (assoc 10 (entget ent)) (entget ent) ));;;替换 Z 数据 
        ) 
  )(setq i (+ 1 i)) 
) 
(command "RESUMEGCD" (ssget "X" '((8 . "GCD"))) "") 
(setvar "cmdecho" oldcmdecho) 
(princ) 
)

/db_自贡黄明儒_ · 发表于 2014-2-12 07:59:24

G版写了一个拉线改高程，很方便的{:soso_e106:}

st788796 · 发表于 2014-2-12 08:25:46

加 z 啰嗦了
(mapcar '+ pt (list 0. 0. z))

/db_自贡黄明儒_ · 发表于 2014-2-12 08:35:50

元老你整了个。。。。。。。。。

spp_wall · 发表于 2014-2-12 09:25:40

学些东西！！！！！！！！

w379106181 · 发表于 2018-1-18 11:45:14

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

myairen · 发表于 2019-2-28 20:06:27

好哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

xuchengjian · 发表于 2019-3-1 09:59:15

66666666666

arker · 发表于 2019-3-4 11:00:32

我自己写了个根据高程点标高调整颜色的。但是对颜色区分不够好。

账号		自动登录	找回密码
密码			立即注册

[每日一码] 批量修改高程点（加减常数）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评