如何修改属性快中的字高？

spp_wall · 发表于 2015-9-29 09:39

如何修改属性快中的字高？能批量最好，因为该了一个好像用刷子不能刷！下面是测试文件！

masterlong · 发表于 2015-9-29 16:46

;;更改块的指定属性的高度
;; (choneheight ent "图纸名称1" 400)
(defun choneheight ( ent tagname tagheight / blkobj atts tag )
(setq blkobj (vlax-ename->vla-object ent))
(if (and
(= (vla-get-hasattributes blkobj) :vlax-true)
(safearray-value (setq atts (vlax-variant-value (vla-getattributes blkobj))))
)
(foreach tag (vlax-safearray->list atts)
(if (= (strcase tagname) (strcase (vla-get-tagstring tag)))
(vla-put-height tag tagheight)
)
)
(vla-update blkobj)
)
(vlax-release-object blkobj)
)

spp_wall · 发表于 2015-9-29 17:06

masterlong 发表于 2015-9-29 16:46
;;更改块的指定属性的高度
;; (choneheight ent "图纸名称1" 400)
(defun choneheight ( ent tagname tag ...

好像不行！！！！

mj0000 · 发表于 2015-9-30 11:48

spp_wall 发表于 2015-9-29 17:06
好像不行！！！！

二楼程序没问题，是你的属性块有问题，试试 (choneheight (car (entsel)) "图号" 400)

spp_wall · 发表于 2015-9-30 11:58

mj0000 发表于 2015-9-30 11:48
二楼程序没问题，是你的属性块有问题，试试 (choneheight (car (entsel)) "图号" 400)

如果要批量选择应该怎么改呢？

jltx123456 · 发表于 2015-9-30 12:05

spp_wall 发表于 2015-9-30 11:58
如果要批量选择应该怎么改呢？

遍历递归哈

看你在论坛也呆了蛮久了, 要学会自个儿动手哈

xyp1964 · 发表于 2015-9-30 13:34

;; 改属性快字高需要e派工具箱(XCAD)的支持
(defun c:test1732 ()
(xyp-Start)
(setq th (UREAL 7 "" "字高" th))
(setq i -1)
(if (setq ss (ssget '((0 . "insert") (66 . 1))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq lst (xyp-Att2list s1)
lst (mapcar 'car lst)
)
(mapcar '(lambda (x) (xyp-put "height" x th)) lst)
)
)
(xyp-End)
)

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

[提问] 如何修改属性快中的字高？

相关帖子