chenyong147 发表于 2007-6-14 23:27:00

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

本帖最后由 作者 于 2007-6-15 0:04:50 编辑 <br /><br /> <p>1. 每一个点的原本"Z"坐标为0.</p><p>2. "z"坐标的数值已经标注在每一个点的旁边.</p><p>3. 每一个"z"坐标的数值都不一样。</p><p></p>

zara 发表于 2007-6-15 06:49:00

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

Lotto168 发表于 2007-6-15 19:50:00

<p>這個以程式處理是比較理想的作法，簡單動作舉例如下，</p><p><font color="#0938f7">(defun c:chpz ()<br/>&nbsp; (setq en (entget (car (entsel "\n選取點物件: "))))<br/>&nbsp; (setq txt (entget (car (entsel "\n選取Ｚ值文字: "))))<br/>&nbsp; (setq pt (cdr (assoc 10 en)))<br/>&nbsp; (setq ptx (car pt) pty (cadr pt))<br/>&nbsp; (setq ptz (atof (cdr (assoc 1 txt))))<br/>&nbsp; (setq pt1 (list ptx pty ptz))<br/>&nbsp; (entmod (subst (cons 10 pt1) (assoc 10 en) en))<br/>&nbsp; (princ)<br/>)<br/></font>不過以上一次僅處理一組，效率還待提升，不過這問題應到其他版討論，在此就不多贅言。</p><p>另外，建議可以用圖塊方式，或文字的插入點就是點物件的位置，那對程式處理會更方便。</p><p></p>

chenyong147 发表于 2007-6-18 21:41:00

<font face="Verdana"><font color="#000000">Lotto168你好!能到提供此程式吗?谢谢!</font></font>

chenyong147 发表于 2007-7-3 21:58:00

<p>还在找解决方法!</p>

Andyhon 发表于 2007-7-4 08:14:00

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

chenyong147 发表于 2007-7-14 00:28:00

可以

Lotto168 发表于 2007-7-15 18:33:00

chenyong147发表于2007-6-18 21:41:00static/image/common/back.gifLotto168你好!能到提供此程式吗?谢谢!

<p></p><p>在3樓的藍色部份即為程式(一次處理一組之功能)，可以直接複製到記事本中存成lsp檔即可使用，</p><p>ps. 繁體字部份可自行修改為簡體字或英文。</p><p></p>

chenyong147 发表于 2007-7-18 21:36:00

谢谢<font face="Verdana">Lotto168!我试试.</font>
页: [1]
查看完整版本: [求助]在CAD中如何快速赋予很多点的"Z"坐标,使点具有高度?