求助：高程点批量加负号,有的对有的错？已解决，谢谢ZZXXQQ

gzxl · 发表于 2010-12-4 21:20:06

本帖最后由 gzxl 于 2010-12-4 22:07 编辑

(defun c:-gcd ()
(setvar "cmdecho" 0)
(princ "本程序用于高程点前面加上负号，请选择目标：")
(vl-load-com)
(setq s
  (ssget "x" '((0 . "INSERT") (8 . "GCD-SS")))
)
(setq s1 (sslength s))
(setq i 0)
(while (< i s1)
  (setq s2 (ssname s i))
  (setq s3 (entget s2))
  (setq s4 (assoc 10 s3))
  (setq s5 (cdr s4))
  (setq sj (- 0 (caddr s5)))
  (setq s6 (list 10 (car s5) (cadr s5) sj))
  (entmod (subst s6 s4 s3))
  (setq t1 (vlax-ename->vla-object s2))
  (setq t2 (vla-GetAttributes t1))
  (setq t3 (vlax-variant-value t2))
  (setq t4 (vlax-safearray->list t3))
  (setq t5 (car t4))
  (setq t6 (fix sj))
  (setq t7 (rtos t6 2 0))
  (vla-put-textstring t5 t7)
  (setq t8 (vlax-vla-object->ename t5))
  (setq t9 (entget t8))
  (setq t10 (assoc 10 t9))
  (setq t11 (cdr t10))
  (setq t12 (list 10 (car t11) (cadr t11) (+ (caddr t11))))
  (entmod (subst t12 t10 t9))
  (vla-update t5)
  (setq i (1+ i))
)
(princ "\n已修改完成")
)

gzxl · 发表于 2010-12-4 21:23:21

本帖最后由 gzxl 于 2010-12-4 22:06 编辑

程序改出来的高程点有的是对，有的是错的，请高手帮忙解决

ZZXXQQ · 发表于 2010-12-5 00:08:44

本帖最后由 ZZXXQQ 于 2010-12-5 00:25 编辑

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

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

[基础] 求助：高程点批量加负号,有的对有的错？已解决，谢谢ZZXXQQ

本帖子中包含更多资源

已解决，谢谢ZZXXQQ