zhaosujun 发表于 2008-7-1 16:01:00

如何把图中的红字改变颜色，跪谢，大家帮帮忙吧！

这是一张地形图，地形标高如何用LSP把这些标高的颜色（红色）改为我想要的颜色，如果LSP不能实现，CAD如何操作呀，大家帮帮忙吧，好急呀，跪谢！

zhaosujun 发表于 2008-7-1 16:20:00

byghbcx 发表于 2008-7-1 18:31:00

需要把块属性转成文本

zhaosujun 发表于 2008-7-1 18:34:00

<p>百万人的论坛，解决不了这个问题，我好失望呀！！</p>

zhaosujun 发表于 2008-7-1 18:37:00

您是怎么做到的呀？

zhaosujun 发表于 2008-7-1 18:48:00

<p>2楼是原图 3楼是处理好的图 这是怎么做到的呀？<strong><font face="Verdana" color="#61b713">byghbcx 能告诉我吗？谢谢了</font></strong></p><p></p>

cauin 发表于 2008-7-1 20:53:00

本帖最后由 作者 于 2008-7-1 20:56:43 编辑 <br /><br /> zhaosujun发表于2008-7-1 18:34:00static/image/common/back.gif百万人的论坛，解决不了这个问题，我好失望呀！！

<p></p><p>这个样的帖子太多了，搜一下！！</p><p>前几天帮 liminnet 写了一个类似的程序....</p>

ljttjl 发表于 2008-7-1 22:22:00

<p>这用lisp完全可以实现,参见:<a href="http://www.othermap.com/dvbbs/index.asp" style="CURSOR: hand;"><font color="#000000">测绘信息网论坛</font></a> → <a href="http://www.othermap.com/dvbbs/index.asp?boardid=300"><font color="#000000">测绘软件专题</font></a> → <a href="http://www.othermap.com/dvbbs/index.asp?boardid=27&amp;page=2"><font color="#000000">AutoCAD二次开发</font></a> → 针对cass7.0展高程点值文字大小的修改程序 <a href="http://www.othermap.com/dvbbs/dispbbs.asp?boardID=27&amp;ID=20099&amp;page=2">http://www.othermap.com/dvbbs/dispbbs.asp?boardID=27&amp;ID=20099&amp;page=2</a></p>

ZZXXQQ 发表于 2008-7-1 23:01:00



;更改属性颜色 明经 ZZXXQQ 2008.7.1
(defun c:atc ()
 (if (and (setq col (getint "\n要更改的颜色号:"))
          (princ "\n选择匹配目标的\"属性\":")
          (setq ss (ssget '((0 . "INSERT") (66 . 1))))) (progn
  (setq i -1)
  (repeat (sslength ss)
 (setq ent2 (entget(entnext(cdr(assoc -1 (entget(setq enrr2 (ssname ss (setq i (1+ i))))))))))
 (if (assoc 62 ent2)
 (setq ent2 (subst (cons 62 col) (assoc 62 ent2) ent2))
 (setq ent2 (append ent2 (list (cons 62 col))))
 )
 (entmod ent2)
 (entupd enrr2)
  )
 ))
 (princ)
)



页: [1]
查看完整版本: 如何把图中的红字改变颜色，跪谢，大家帮帮忙吧！