关于改变多段线及直线的线型和线宽的问题

137407536

自己尝试结合发现
lisp中AB 二段保留其中一段
要么只支持多段线的线型及线宽转换
要么只支持直线的线型及线宽转换
有没人知道怎么结合
让代码反应到当前选的无论是直线还是多段线
都能帮你转换到相应的线型及线宽
另外还有没可能全选对象后全转换
感谢了

最后代码供上
(defun c:TTT(/ ent)
   (setq ent(ssget))
   (command "change" ent "" "p" "lt" "DASHDOT" "s" "15" "C" "2" "")
   (command "PEDIT" ent "W" "5" "")       ;适用于多段线; a
   (command "PEDIT" ent "" "W" "5" "")    ;适用于直线; b
(princ (strcat "\n提示：如未转换查看是否加载线型DASHDOT，\n"))
  (princ)
)

marting

1. (defun c:TTT (/ ent oldcmd oldpe)
   
2.   (setq oldcmd (getvar "cmdecho")
   
3.         oldpe  (getvar "peditaccept")
   
4.   )
   
5.   (setvar "cmdecho" 0)
   
6.   (setvar "peditaccept" 1)
   
7.   (if (setq ent (ssget))
   
8.     (progn (command "change" ent "" "p" "lt" "DASHDOT" "s" "15" "C" "2" ""
   
9.                    )
   
10.            (command "PEDIT" "M" ent "" "W" "5" "")
    
11.            (setvar "peditaccept" oldpe)
    
12.            (setvar "cmdecho" oldcmd)
    
13.            (princ
    
14.              (strcat "\n提示：如未转换查看是否加载线型DASHDOT，\n")
    
15.            )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:TTT (/ ent oldcmd oldpe)<br />   (setq oldcmd (getvar "cmdecho")<br />         oldpe  (getvar "peditaccept")<br />   )<br />   (setvar "cmdecho" 0)<br />   (setvar "peditaccept" 1)<br />   (if (setq ent (ssget))<br />     (progn (command "change" ent "" "p" "lt" "DASHDOT" "s" "15" "C" "2" ""<br />                    )<br />            (command "PEDIT" "M" ent "" "W" "5" "")<br />            (setvar "peditaccept" oldpe)<br />            (setvar "cmdecho" oldcmd)<br />            (princ<br />              (strcat "\n提示：如未转换查看是否加载线型DASHDOT，\n")<br />            )<br />     )<br />   )<br />   (princ)<br /> )