线形比例问题？
由于图面的线形比较多，很多是虚线的却显示是实现，有什么方法实现线形不管长短否，能够自动的调节成显示的最佳比例状态，从而能够很好的区分 沙发~~~~regen 重新生成 这个是“线型比例”的问题了！ 你要求“自动”的话只能写程序
程序思路：就是 按线长修改 线的 线型比例 即可。 wowan1314 发表于 2013-6-7 20:55 static/image/common/back.gif
这个是“线型比例”的问题了！ 你要求“自动”的话只能写程序
程序思路：就是 按线长修改 线的 线型比例 ...
怎么按线长修改 线的 线型比例？ 以前写的东东实在是找不到了，淹没在代码的海洋中只好再写一个。(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (setq p (getdist "\n输入更改参考值<10>: "))
(setq p (if p p 10))
(setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))))) (progn
(setq i -1)
(repeat (sslength ss)
(setq en (ssname ss (setq i (1+ i))))
(setq ent (entget en))
(command "_.LENGTHEN" en "")
(setq ll (getvar "PERIMETER"))
(setq s (/ ll p))
(if (assoc 48 ent)
(entmod (subst (cons 48 s) (assoc 48 ent) ent))
(entmod (append ent (list (cons 48 s))))
)
(entupd en)
)
))
(setvar "CMDECHO" 1)
(princ)
)
上面程序试过，还是不是很理想，最好要图中的不同的线的线型比例都显示的均匀
问题如图所示,期待大师回复，谢谢！！！ 本帖最后由 yangist 于 2013-6-29 22:54 编辑
ZZXXQQ 发表于 2013-6-8 09:45 static/image/common/back.gif
以前写的东东实在是找不到了，淹没在代码的海洋中只好再写一个。
朋友 你好 你的程序不错
1.能否框选 而不是直接选择全部
2.调整线型比例时排除continues,或者直接按非连续线型选
3.不用输入,直接调用当前标注的全局比例
4.静默执行 1、如果要用框选，将ssget后面的"X"删了就行。但因为由用户干预而无法达到第4条要求；
2、要排除continues选择，程序只能对实体遍历，速度很慢；
3、可以直接读当前标注的全局比例；
4、与第一条矛盾； ZZXXQQ 发表于 2013-6-29 23:59 static/image/common/back.gif
1、如果要用框选，将ssget后面的"X"删了就行。但因为由用户干预而无法达到第4条要求；
2、要排除continues ...
1.ssget if nil"X",ok
2.按线型选择(即非continues),你能写一下么
3.dimscal,ok
4.(setvar "cmdecho" 0),ok
页:
[1]
2