请教：在图层A上画宽度25的PL线如何实现？

theisland

如何才能在图层A上画PL线呢？PL线全局线宽25，如果图中有图层A就直接在A层上画线，如果没有图层A则生成图层A（红色，非虚线，设为不打印），画完PL线之后将下一次用CAD自带PL命令画线时的线宽变成1，也就是不希望使用程序之后画的多义线都是粗的，拜托各位编程高手了！

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq oldla (getvar "CLAYER"))
   
5. (if (not (tblsearch "LAYER" "A"))
   
6.   (command "-LAYER" "M" "A" "C" 1 "" "P" "N" "" "")
   
7.   (setvar "CLAYER" "A")
   
8. )
   
9. (if (setq pt (getpoint "\n第一点: ")) (progn
   
10.   (command "_.PLINE" pt "W" 25 "")
    
11.   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
12. ))
    
13. (setvar "PLINEWID" 1)
    
14. (setvar "CLAYER" oldla)
    
15. (setvar "CMDECHO" 1)
    
16. (princ)
    
17. )

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq oldla (getvar "CLAYER"))<br /> (if (not (tblsearch "LAYER" "A"))<br />   (command "-LAYER" "M" "A" "C" 1 "" "P" "N" "" "")<br />   (setvar "CLAYER" "A")<br /> )<br /> (if (setq pt (getpoint "\n第一点: ")) (progn<br />   (command "_.PLINE" pt "W" 25 "")<br />   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> ))<br /> (setvar "PLINEWID" 1)<br /> (setvar "CLAYER" oldla)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

theisland

ZZXXQQ 发表于 2013-5-25 21:18

ZZXXQQ超级版主您好！谢谢您的回复，我刚试了一下，PL线末端宽度太大（我要全局宽度25），而且画的线并不是在A层，而是在当前层，麻烦帮我看一下

theisland

ZZXXQQ 发表于 2013-5-25 21:18

可以用了，感激不尽！爱死这里了，解决问题的效率顶呱呱

ミ⒈怐﹎话

代码在哪呢？

xyp1964

2. 
   
3. (defun c:tt ()
   
4.   (setq la (getvar "CLAYER"))
   
5.   (xyp-MkLaCo "A" 1)
   
6.   (setvar "plinewid" 25)
   
7.   (if (setq p1 (getpoint "\n第一点: "))
   
8.     (progn
   
9.       (command "PLINE" p1)
   
10.       (while (setq p2 (getpoint p1 "\n基点<退出>: "))
    
11.         (command p2)
    
12.         (setq p1 p2)
    
13.       )
    
14.       (command "")
    
15.     )
    
16.   )
    
17.   (setvar "CLAYER" la)
    
18.   (princ)
    
19. )
    

<br /> (defun c:tt ()<br />   (setq la (getvar "CLAYER"))<br />   (xyp-MkLaCo "A" 1)<br />   (setvar "plinewid" 25)<br />   (if (setq p1 (getpoint "\n第一点: "))<br />     (progn<br />       (command "PLINE" p1)<br />       (while (setq p2 (getpoint p1 "\n基点<退出>: "))<br />         (command p2)<br />         (setq p1 p2)<br />       )<br />       (command "")<br />     )<br />   )<br />   (setvar "CLAYER" la)<br />   (princ)<br /> )<br />

自贡黄明儒

1. (defun c:w1 (/ LA P1 P2)
   
2.   (setq la (getvar "CLAYER"))
   
3.   (if (not (tblsearch "LAYER" "Defpoints"))
   
4.     (command "_.LAYER" "M" "Defpoints" "C" 1 "" "" "N" "" "")
   
5.     (setvar "CLAYER" "Defpoints")
   
6.   )
   
7.   (setvar "plinewid" 25)
   
8.   (if (setq p1 (getpoint "\n第一点: "))
   
9.     (progn
   
10.       (command "_.PLINE" p1)
    
11.       (while (setq p2 (getpoint p1 "\n基点<退出>: "))
    
12.         (command p2)
    
13.         (setq p1 p2)
    
14.       )
    
15.       (command "")
    
16.     )
    
17.   )
    
18.   (setvar "CLAYER" la)
    
19.   (princ)
    
20. )

(defun c:w1 (/ LA P1 P2)<br />   (setq la (getvar "CLAYER"))<br />   (if (not (tblsearch "LAYER" "Defpoints"))<br />     (command "_.LAYER" "M" "Defpoints" "C" 1 "" "<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />" "N" "" "")<br />     (setvar "CLAYER" "Defpoints")<br />   )<br />   (setvar "plinewid" 25)<br />   (if (setq p1 (getpoint "\n第一点: "))<br />     (progn<br />       (command "_.PLINE" p1)<br />       (while (setq p2 (getpoint p1 "\n基点<退出>: "))<br />         (command p2)<br />         (setq p1 p2)<br />       )<br />       (command "")<br />     )<br />   )<br />   (setvar "CLAYER" la)<br />   (princ)<br /> )

"A"层最好为Defpoints层，反正这层是不打印的

zmzk

领教了，我是小白，如饥似渴找到这些入门知识！