LISP控制尺寸线比例
大家好，有人知道我可以用LISP来控制Dim Scale \ Properties吗？
理想情况下，我希望在模型空间中进行所有尺寸标注，然后在打印之前运行此LISP。
LISP的设置应确保：
如果“测量”小于或等于2’，则“文字高度”等于1/2“
如果“测量”大于2’，但小于4’，则“文字高度”等于1“
如果“测量”大于4’，但小于6’，则“文字高度”等于1.5“
如果“测量”大于6’，但小于8’，则“文字高度”等于2“
如果“测量”大于8’，但小于10’，则“文字高度”等于2.5“
等等等等等等。。。
如果LISP可以选择所有尺寸线并将其设置为特定层，则会获得额外点数。
提前感谢！ 嗨，沃森；
您可以按照图案添加红色
（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（/（cvunit3.0”in“m”）（cvunit10。“ft”“m”）；[颜色=“红色”] 谢谢
今天晚些时候我会试试看。
页:
[1]