Cass008高程改常数，高程值和高程注记都变动，求修改。

cwy5560 · 发表于 2013-11-30 15:56:21

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

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

×

(defun c:xg ()
  (setq cs (getreal "输入常数："))

  ;(setq cs -0.2) ;改高程值常数
  (setq na (car (entsel)))
  (setq en (entget na))
  (setq y10 (assoc 10 en))
  (setq yh (nth 3 (assoc 10 en)))
  (setq xg (+ yh cs))
  (setq x10 (list (nth 0 y10) (nth 1 y10)

(nth 2 y10) xg))
  (entmod (SUBST x10 y10 EN))
  (command "recass" na)
)

如上：每次只能改一个，我希望能多选改动，有朋友能帮我一下或者有更好的程序。

newer · 发表于 2013-11-30 16:00:32

你要想多选的话，高程的图层是什么？贴个测试图上来吧。

cwy5560 · 发表于 2013-11-30 16:26:07

图层是GCD，要求Z值，height值都改变

newer · 发表于 2013-11-30 16:40:39

cwy5560 发表于 2013-11-30 16:26
图层是GCD，要求Z值，height值都改变

截取个图说明下吧，你要改哪个，标出来， height是什么？

st788796 · 发表于 2013-11-30 17:06:55

又是 CASS ，看LZ是将实体移动了一个常量，最后调用的是 CASS 命令，好像这些 CASS 命令在Lisp中调用有限制，不知道这个Recass 是什么功能？

newer · 发表于 2013-11-30 18:47:35

cwy5560 发表于 2013-11-30 16:26
图层是GCD，要求Z值，height值都改变

你的图是属性文字，给你写了个插件，用用看。

http://bbs.xdcad.net/thread-671897-1-1.html

newer · 发表于 2013-11-30 19:14:07

cwy5560 发表于 2013-11-30 16:26
图层是GCD，要求Z值，height值都改变

标高随字插件见：

http://bbs.xdcad.net/thread-671908-1-1.html

19622928 · 发表于 2013-11-30 20:32:50

(defun c:xg(/ cs ss i nh el nh n10 )
  (setq cs (getreal "\n输入常数:") i 0)
  (if (setq ss (ssget '((8 . "GCD"))))
(repeat (sslength ss)
   (setq el (entget (ssname ss i)))
   (setq nh (+ (nth 3 (assoc 10 el)) cs))
   (setq n10 (reverse (cons nh (cons (nth 2 (assoc 10 el)) (cons (nth 1 (assoc 10 el)) '(10))))))
   (entmod (subst n10 (assoc 10 el) el))
   (setq i(1+ i))
   )
)
  (command "recass" "")
  (princ)
  )

newer · 发表于 2013-11-30 20:44:40

19622928 发表于 2013-11-30 20:32
(defun c:xg(/ cs ss i nh el nh n10 )
(setq cs (getreal "\n输入常数:") i 0)
(if (setq ss (ssget ...

CASS 的 (command "recass" "")

这个命令是做什么的？

st788796 · 发表于 2013-11-30 23:42:02

cwy5560 发表于 2013-11-30 16:26
图层是GCD，要求Z值，height值都改变

楼主这个图就是等高线,直接用 move 就可以吧

19622928 · 发表于 2013-12-1 12:27:44

newer 发表于 2013-11-30 20:44
CASS 的 (command "recass" "")

这个命令是做什么的？

重构实体！

Lisphk · 发表于 2013-12-1 12:39:28

19622928 发表于 2013-12-1 12:27
重构实体！

怎么和单独提供一个这个，是不是有什么专业特别的数据要写到实体里面啊？

st788796 · 发表于 2013-12-1 12:48:53

Lisphk 发表于 2013-12-1 12:39
怎么和单独提供一个这个，是不是有什么专业特别的数据要写到实体里面啊？

估计是重构xrecord中和标高有关数据

19622928 · 发表于 2013-12-1 16:38:35

Lisphk 发表于 2013-12-1 12:39
怎么和单独提供一个这个，是不是有什么专业特别的数据要写到实体里面啊？

看图片，位置z坐标为200.123，属性是100.1。实际显示的也是100.1。重构就是让属性和显示的与实际的z值一样！这是CASS的一个功能！

newer · 发表于 2013-12-1 19:31:56

19622928 发表于 2013-12-1 16:38
看图片，位置z坐标为200.123，属性是100.1。实际显示的也是100.1。重构就是让属性和显示的与实际的z值一 ...

是Z随着文字改，还是文字随着Z改？

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

[求助] Cass008高程改常数，高程值和高程注记都变动，求修改。

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

点评

点评

点评

点评

点评

点评

点评