求救,怎样能够用程序读取图形的标注公差?急!!!!!!

sihan · 发表于 2005-5-15 04:27:00

本帖最后由作者于 2005-5-16 13:02:44 编辑

3几求救,怎样能够用程序读取图形的标注公差,和判断是X方向标注还是Y 方向标注?

meflying · 发表于 2005-5-15 11:31:00

(entget (car (entsel)) '("*"))

(50 . 1.5708);判断是水平还是垂直

(1070 . 47) (1040 . 0.22) (1070 . 48) (1040 . 0.11)

;47指上偏差,后面0.22是值,,,48是下偏差,后面0.11是值

sihan · 发表于 2005-5-15 12:00:00

非常感谢 meflying

sihan · 发表于 2005-5-15 12:09:00

谢谢

sihan · 发表于 2005-5-15 17:54:00

请问 meflying 怎么才可以自动的选择所有的标注,并读取图形的标注公差,我怎么选自动取多个图元后,就没有象这样的组码了呀(1070 . 47) (1040 . 0.22) (1070 . 48) (1040 . 0.11)

ljpnb · 发表于 2005-5-15 18:22:00

看清2楼的提示：(entget (car (entsel)) '("*")) 不加“*”号，那几组会隐藏掉，加了“*”号之后，会多这一组 (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 .
47) (1040 . 0.02) (1070 . 48) (1040 . 0.03) (1070 . 147) (1040 . 0.8) (1070 .
72) (1070 . 0) (1070 . 71) (1070 . 1) (1070 . 40) (1040 . 1.0) (1002 . "}")))

sihan · 发表于 2005-5-16 12:59:00

这样可以把"*"加上去呢,我加的时候总是出错,请各位大哥帮帮忙看一下程序,怎样可以把上一楼所说的组码显示出来

ljpnb · 发表于 2005-5-16 13:10:00

(setq en (entget (ssname s1 n) '("*"))) ，要活学活用啊。。。

sihan · 发表于 2005-5-16 13:15:00

我是这样写的呀,好想不行??

ljpnb · 发表于 2005-5-16 16:24:00

(setq en (entget (ssname s1 n) '("*")))
(setq gongcha(CDR (assoc -3 en )))

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

求救,怎样能够用程序读取图形的标注公差?急!!!!!!

评分

本帖子中包含更多资源