[求助]在CAD中如何快速赋予很多点的"Z"坐标,使点具有高度?

chenyong147

1. 每一个点的原本"Z"坐标为0.

2. "z"坐标的数值已经标注在每一个点的旁边.

3. 每一个"z"坐标的数值都不一样。

zara

每个点的 Z 坐标值不同, 这个得通过代码实现吧. 而且, 恐怕还有些难度, 因为如和关联其点和表示其 Z 坐标值的 TEXT 实体

Lotto168

這個以程式處理是比較理想的作法，簡單動作舉例如下，

(defun c:chpz ()
  (setq en (entget (car (entsel "\n選取點物件: "))))
  (setq txt (entget (car (entsel "\n選取Ｚ值文字: "))))
  (setq pt (cdr (assoc 10 en)))
  (setq ptx (car pt) pty (cadr pt))
  (setq ptz (atof (cdr (assoc 1 txt))))
  (setq pt1 (list ptx pty ptz))
  (entmod (subst (cons 10 pt1) (assoc 10 en) en))
  (princ)
)
不過以上一次僅處理一組，效率還待提升，不過這問題應到其他版討論，在此就不多贅言。

另外，建議可以用圖塊方式，或文字的插入點就是點物件的位置，那對程式處理會更方便。

chenyong147

Lotto168你好!能到提供此程式吗?谢谢!

chenyong147

还在找解决方法!

Andyhon

可以给个-测试定制程序-用的图面吗?

chenyong147

可以

Lotto168

chenyong147发表于2007-6-18 21:41:00Lotto168你好!能到提供此程式吗?谢谢!

在3樓的藍色部份即為程式(一次處理一組之功能)，可以直接複製到記事本中存成lsp檔即可使用，

ps. 繁體字部份可自行修改為簡體字或英文。

chenyong147

谢谢Lotto168!我试试.