线形比例问题？

lish

  由于图面的线形比较多，很多是虚线的却显示是实现，有什么方法实现线形不管长短否，能够自动的调节成显示的最佳比例状态，从而能够很好的区分

fzhemail

沙发~~~~
regen    重新生成

wowan1314

这个是“线型比例”的问题了！ 你要求“自动”的话只能写程序

程序思路：就是 按线长修改 线的 线型比例 即可。

lish

wowan1314 发表于 2013-6-7 20:55
这个是“线型比例”的问题了！ 你要求“自动”的话只能写程序

程序思路：就是 按线长修改 线的 线型比例 ...

怎么按线长修改 线的 线型比例？

ZZXXQQ

以前写的东东实在是找不到了，淹没在代码的海洋中只好再写一个。

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (and (setq p (getdist "\n输入更改参考值<10>: "))
   
5.       (setq p (if p p 10))
   
6.      (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))))) (progn
   
7.   (setq i -1)
   
8.   (repeat (sslength ss)
   
9.    (setq en (ssname ss (setq i (1+ i))))
   
10.    (setq ent (entget en))
    
11.    (command "_.LENGTHEN" en "")
    
12.    (setq ll (getvar "PERIMETER"))
    
13.    (setq s (/ ll p))
    
14.    (if (assoc 48 ent)
    
15.     (entmod (subst (cons 48 s) (assoc 48 ent) ent))
    
16.     (entmod (append ent (list (cons 48 s))))
    
17.    )
    
18.    (entupd en)
    
19.   )
    
20. ))
    
21. (setvar "CMDECHO" 1)
    
22. (princ)
    
23. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (and (setq p (getdist "\n输入更改参考值<10>: "))<br />       (setq p (if p p 10))<br />      (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))))) (progn<br />   (setq i -1)<br />   (repeat (sslength ss)<br />    (setq en (ssname ss (setq i (1+ i))))<br />    (setq ent (entget en))<br />    (command "_.LENGTHEN" en "")<br />    (setq ll (getvar "PERIMETER"))<br />    (setq s (/ ll p))<br />    (if (assoc 48 ent)<br />     (entmod (subst (cons 48 s) (assoc 48 ent) ent))<br />     (entmod (append ent (list (cons 48 s))))<br />    )<br />    (entupd en)<br />   )<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

lish

上面程序试过，还是不是很理想，最好要图中的不同的线的线型比例都显示的均匀

lish

问题如图所示,期待大师回复，谢谢！！！

yangist

ZZXXQQ 发表于 2013-6-8 09:45
以前写的东东实在是找不到了，淹没在代码的海洋中只好再写一个。

朋友 你好 你的程序不错
1.能否框选 而不是直接选择全部
2.调整线型比例时排除continues,或者直接按非连续线型选
3.不用输入,直接调用当前标注的全局比例
4.静默执行

ZZXXQQ

1、如果要用框选，将ssget后面的"X"删了就行。但因为由用户干预而无法达到第4条要求；
2、要排除continues选择，程序只能对实体遍历，速度很慢；
3、可以直接读当前标注的全局比例；
4、与第一条矛盾；

yangist

ZZXXQQ 发表于 2013-6-29 23:59
1、如果要用框选，将ssget后面的"X"删了就行。但因为由用户干预而无法达到第4条要求；
2、要排除continues ...

1.ssget if nil  "X",ok
2.按线型选择(即非continues),你能写一下么
3.dimscal,ok
4.(setvar "cmdecho" 0),ok