LISP控制尺寸线比例

Watson · 发表于 2022-7-5 22:12:44

大家好，

有人知道我可以用LISP来控制Dim Scale \ Properties吗？

理想情况下，我希望在模型空间中进行所有尺寸标注，然后在打印之前运行此LISP。

LISP的设置应确保：

如果“测量”小于或等于2’，则“文字高度”等于1/2“
如果“测量”大于2’，但小于4’，则“文字高度”等于1“
如果“测量”大于4’，但小于6’，则“文字高度”等于1.5“
如果“测量”大于6’，但小于8’，则“文字高度”等于2“
如果“测量”大于8’，但小于10’，则“文字高度”等于2.5“
等等等等等等。。。

如果LISP可以选择所有尺寸线并将其设置为特定层，则会获得额外点数。

提前感谢！

hanhphuc · 发表于 2022-7-5 22:47:46

嗨，沃森；
您可以按照图案添加红色
[code]（defun c:test1（/e me ft txh）；注：本测试使用单位度量（if（and（setq e（entsel））（setq e（car e））（setq e（vlax ename->vla object e））（vlax-property-available-p e’测量）（setq me（vla get Measurement e））；_结束和（setq ft（cvunit me“m”“ft”）txh（cond（（ft 2.）（4英尺）（6英尺）（8英尺）（10英尺）（vla object e））（vlax-property-available-p e’Measurement）（setq me（vla get Measurement e））；_结束和（setq fct（/（cvunit[color=“red”]3.0”in“m”）（cvunit[color=“red”]10。“ft”“m”）；[颜色=“红色”]

Watson · 发表于 2022-7-5 23:34:54

谢谢

今天晚些时候我会试试看。

[编程交流] LISP控制尺寸线比例

发表回复

精选推荐