liminnet
发表于 2008-10-24 11:47:00
caoyin
发表于 2008-10-24 12:08:00
本帖最后由 作者 于 2008-10-24 12:12:35 编辑 <br /><br /> <p>;;获取标注样式的dxf</p><p>(entget (tblobjname "dimstyle" "样式名"))</p><p>;;获取标注对象的dxf</p><p>(entget (car (entsel)) '("ACAD"))</p><p></p><p>(然后参考帮助)比较上面的两组数据，就能得到不同之处的系统变量，</p><p>注意组码 -3 后面的数据，通过手动修改的标注对象，修改过的数据在这里</p>
phoenixdjq
发表于 2008-10-24 12:11:00
<p>用tblsearch函数吧，用</p><p>(setq ty (tblsearch "DIMstyle" "标注样式"))</p><p>找到标注样式的列表</p><p>然后两个进行比较吧</p><p>我想下面的应该知道怎么做了吧</p>
liminnet
发表于 2008-10-24 13:48:00
caoyin
发表于 2008-10-24 15:31:00
<p>cad自带的帮助</p><p>按照我二楼的方法测试：</p><p>1.假如当前标注样式是 iso-25, 创建一个标注对象，修改标注的某个设置(如修改箭头大小。)</p><p>2.(setq A (entget (tblobjname "dimstyle" "iso-25")))</p><p> (cdr (assoc 41 A));;得到标注样式iso-25的箭头大小</p><p>3.(setq B (entget (entlast) '("ACAD")))</p><p> (setq B1 (assoc -3 B))</p><p> (if (member '(1070 . 41) B1)</p><p> (cdr (assoc 1040 B1));;得到图形对象箭头大小</p><p> )</p><p></p><p></p><p></p><p></p>
liminnet
发表于 2008-10-24 16:22:00
liminnet
发表于 2008-10-24 16:31:00
liminnet
发表于 2008-10-24 17:47:00
caoyin
发表于 2008-10-25 17:42:00
<p>173代表系统变量 DIMSAH</p>
liminnet
发表于 2008-10-25 21:38:00