求助,谢谢

pop159 · 发表于 2012-11-8 14:39:08

如何取得所选尺寸的DIMEXO值,本人没办法啦,各位大大们出手吧,谢谢.

pop159 · 发表于 2012-11-8 15:09:02

大大们出手吧,或修改所选尺寸的dimexo值.谢了.

vormittag · 发表于 2012-11-8 15:59:35

查询可以用

(cdr (assoc 42 (entget(tblobjname "dimstyle"(cdr (assoc 3 (entget(car(entsel)))))))))

复制代码

zyhandw · 发表于 2012-11-8 16:06:02

本帖最后由 zyhandw 于 2012-11-8 16:08 编辑

不用大大们出手，我等菜鸟先出手，你试试看能用不

(defun c:test( / en x enlst en-vl)
(setq en (car (entsel)))
(setq x (getreal "\n 请输入DIMEXO的新值: \n"))
(setq enlst (entget en))
(setq en-vl (vlax-ename->vla-object en))
(vlax-put-property en-vl 'ExtensionLineOffset )
(entmod enlst)
)

vormittag · 发表于 2012-11-8 16:07:16

如果要修改的话要用扩展数据了。

pop159 · 发表于 2012-11-8 17:08:23

谢谢,提示参数太少.等再次出手.

pop159 · 发表于 2012-11-8 17:09:53

zyhandw 发表于 2012-11-8 16:06
不用大大们出手，我等菜鸟先出手，你试试看能用不

谢谢,提示参数太少.等再次出手.

zyhandw · 发表于 2012-11-8 17:14:43

pop159 发表于 2012-11-8 17:09
谢谢,提示参数太少.等再次出手.

sorry，漏写一个字符
(defun c:test( / en x enlst en-vl)
  (setq en (car (entsel)))
  (setq x (getreal "\n 请输入DIMEXO的新值: \n"))
  (setq enlst (entget en))
  (setq en-vl (vlax-ename->vla-object en))
  (vlax-put-property  en-vl 'ExtensionLineOffset x)
  (entmod enlst)
)

pop159 · 发表于 2012-11-8 17:16:18

vormittag 发表于 2012-11-8 15:59
查询可以用

谢谢您的帮助.

zyhandw · 发表于 2012-11-8 17:16:51

没用过标注，所以也不知道是否符你的要求，不是你的要的结果的话，请向大大们求助

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

求助,谢谢

点评