答疑

ferious

2. 答疑，哪位前辈能否帮忙看下，手绘命令调用有问题，不知道怎么调。<img src="http://bbs.mjtd.com/static/image/smiley/qq/em84.gif" border="0" smilieid="492" alt="">
   
3. ;;; ======================================================================
   
4. (defun c:sx ( / )
   
5. (setvar "cmdecho"  0)
   
6. (vl-load-com)
   
7.   (command "_layer"   "m"   "DGWT-REV"     "c" "4" ""    ""    "")
   
8. 
   
9. 
   
10. (command "_sketch"  ""  "T" "p" "I" "1"  ""  )
    
11. 
    
12.    
    
13.      
    
14. (while (not (zerop (getvar "cmdactive")))(command pause))
    
15. (Vlax-Put         (Vlax-Ename->Vla-Object(entlast)) 'ConstantWidth 20  );一个个来改属性
    
16.   (Vla-Put-color  (Vlax-Ename->Vla-Object(entlast))   181  )
    
17.   (Vla-Put-layer  (Vlax-Ename->Vla-Object(entlast))  "DGWT-REV"  )
    
18. ;;; (COMMAND "CHANGE"  (entlast)  "" "PROPERTIES" "la" "DGWT-REV"  "c"  "181"   "lw"  "4"   "") ;非全局宽度，显示可观
    
19.   (princ)
    
20. )

答疑，哪位前辈能否帮忙看下，手绘命令调用有问题，不知道怎么调。<img src="http://bbs.mjtd.com/static/image/smiley/qq/em84.gif" border="0" smilieid="492" alt=""><br /> ;;; ======================================================================<br /> (defun c:sx ( / )<br /> (setvar "cmdecho"  0)<br /> (vl-load-com)<br />   (command "_layer"   "m"   "DGWT-REV"     "c" "4" ""    ""    "")<br /> <br /> <br /> (command "_sketch"  ""  "T" "p" "I" "1"  ""  )<br /> <br />     <br />      <br /> (while (not (zerop (getvar "cmdactive")))(command pause))<br /> (Vlax-Put         (Vlax-Ename->Vla-Object(entlast)) 'ConstantWidth 20  );一个个来改属性<br />   (Vla-Put-color  (Vlax-Ename->Vla-Object(entlast))   181  )<br />   (Vla-Put-layer  (Vlax-Ename->Vla-Object(entlast))  "DGWT-REV"  )<br /> ;;; (COMMAND "CHANGE"  (entlast)  "" "PROPERTIES" "la" "DGWT-REV"  "c"  "181"   "lw"  "4"   "") ;非全局宽度，显示可观<br />   (princ)<br /> )

飞雪神光

ferious 发表于 2024-1-8 13:42
多谢，是草图，sketch。能帮忙再看下吗？

(command "_sketch"  ""  "T" "p" "I" "1"  ""  )

下次用下边的回复 我能更快的看到

1. (defun c:sx (/ bjty lm-entmake-layer make-ssadd obj ss ss-enlst)
   
2.         (defun make-ssadd (en / lst)
   
3.                 (if en
   
4.                         (progn
   
5.                                 (while (setq en (entnext en))
   
6.                                         (if (not (member (cdr (assoc 0 (entget en)))
   
7.                                                                                  '("ATTRIB" "VERTEX" "SEQEND")
   
8.                                                                          )
   
9.                                                         )
   
10.                                                 (setq LST (cons en LST))
    
11.                                         )
    
12.                                 )
    
13.                                 (ss-enlst (reverse LST))
    
14.                         )
    
15.                         (ssget "X")
    
16.                 )
    
17.         )
    
18.         (defun ss-enlst (ss / enlst)
    
19.                 (cond
    
20.                         ((= (type ss) 'PICKSET)
    
21.                                 (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
22.                         )
    
23.                         ((= (type ss) 'LIST)
    
24.                                 (setq enlst (ssadd))
    
25.                                 (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
26.                         )
    
27.                 )
    
28.         )
    
29.         (setvar "cmdecho" 0)
    
30.         (vl-load-com)
    
31.         (if(null(tblsearch "layer" "DGWT-REV"))
    
32.                 (command "_layer" "n" "DGWT-REV" "c" "4" "DGWT-REV" "")
    
33.         )
    
34.         (setq bjty (entlast))
    
35.         (command "_sketch" "" "p")
    
36.         (setq ss (make-ssadd bjty))
    
37.         (foreach ty (ss-enlst ss)
    
38.                 (setq obj (vlax-ename->vla-object ty))
    
39.                 (vla-put-color obj 181)
    
40.                 (vla-put-layer obj "DGWT-REV" )
    
41.         )
    
42.         (princ)
    
43. )
    
44. 
    

(defun c:sx (/ bjty lm-entmake-layer make-ssadd obj ss ss-enlst)<br />         (defun make-ssadd (en / lst)<br />                 (if en<br />                         (progn<br />                                 (while (setq en (entnext en))<br />                                         (if (not (member (cdr (assoc 0 (entget en)))<br />                                                                                  '("ATTRIB" "VERTEX" "SEQEND")<br />                                                                          )<br />                                                         )<br />                                                 (setq LST (cons en LST))<br />                                         )<br />                                 )<br />                                 (ss-enlst (reverse LST))<br />                         )<br />                         (ssget "X")<br />                 )<br />         )<br />         (defun ss-enlst (ss / enlst)<br />                 (cond<br />                         ((= (type ss) 'PICKSET)<br />                                 (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />                         )<br />                         ((= (type ss) 'LIST)<br />                                 (setq enlst (ssadd))<br />                                 (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />                         )<br />                 )<br />         )<br />         (setvar "cmdecho" 0)<br />         (vl-load-com)<br />         (if(null(tblsearch "layer" "DGWT-REV"))<br />                 (command "_layer" "n" "DGWT-REV" "c" "4" "DGWT-REV" "")<br />         )<br />         (setq bjty (entlast))<br />         (command "_sketch" "" "p")<br />         (setq ss (make-ssadd bjty))<br />         (foreach ty (ss-enlst ss)<br />                 (setq obj (vlax-ename->vla-object ty))<br />                 (vla-put-color obj 181)<br />                 (vla-put-layer obj "DGWT-REV" )<br />         )<br />         (princ)<br /> )<br /> <br />

飞雪神光

1. (defun c:sx (/ lm-entmake-layer obj)
   
2.         (setvar "cmdecho" 0)
   
3.         (vl-load-com)
   
4.         (defun lm-entmake-layer(datalst)
   
5.                 (mapcar'set '(tc co) datalst)
   
6.                 (or co (setq co 256))
   
7.                 (or tc (setq tc (getvar "clayer")))
   
8.                 (entmake (list '(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")(cons 2 tc)(cons 62 co)'(70 . 0)'(6 . "CONTINUOUS")))
   
9.         )
   
10.         (if(null(tblsearch "layer" "DGWT-REV"))
    
11.                 (lm-entmake-layer (list "DGWT-REV" 4))
    
12.         )
    
13.         (command "pline" )
    
14.         (while (not (zerop (getvar "cmdactive"))) (command pause))
    
15.         (setq obj (Vlax-Ename->Vla-Object(entlast)))
    
16.         (vla-put-constantwidth obj 20)
    
17.         (vla-put-color obj 181 )
    
18.         (vla-put-layer obj "DGWT-REV" )
    
19.         (princ)
    
20. )

(defun c:sx (/ lm-entmake-layer obj)<br />         (setvar "cmdecho" 0)<br />         (vl-load-com)<br />         (defun lm-entmake-layer(datalst)<br />                 (mapcar'set '(tc co) datalst)<br />                 (or co (setq co 256))<br />                 (or tc (setq tc (getvar "clayer")))<br />                 (entmake (list '(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")(cons 2 tc)(cons 62 co)'(70 . 0)'(6 . "CONTINUOUS")))<br />         )<br />         (if(null(tblsearch "layer" "DGWT-REV"))<br />                 (lm-entmake-layer (list "DGWT-REV" 4))<br />         )<br />         (command "pline" )<br />         (while (not (zerop (getvar "cmdactive"))) (command pause))<br />         (setq obj (Vlax-Ename->Vla-Object(entlast)))<br />         (vla-put-constantwidth obj 20)<br />         (vla-put-color obj 181 )<br />         (vla-put-layer obj "DGWT-REV" )<br />         (princ)<br /> )

1. (defun c:sx (/ lm-entmake-layer obj)
   
2.   (setvar "cmdecho" 0)
   
3.   (vl-load-com)
   
4.   (if(null(tblsearch "layer" "DGWT-REV"))
   
5.     (command "_layer" "n" "DGWT-REV" "c" "4" "DGWT-REV" "")
   
6.   )
   
7.   (command "pline")
   
8.   (while (not (zerop (getvar "cmdactive"))) (command pause))
   
9.   (setq obj (Vlax-Ename->Vla-Object(entlast)))
   
10.   (vla-put-constantwidth obj 20)
    
11.   (vla-put-color obj 181 )
    
12.   (vla-put-layer obj "DGWT-REV" )
    
13.   (princ)
    
14. )

(defun c:sx (/ lm-entmake-layer obj)<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (if(null(tblsearch "layer" "DGWT-REV"))<br />     (command "_layer" "n" "DGWT-REV" "c" "4" "DGWT-REV" "")<br />   )<br />   (command "pline")<br />   (while (not (zerop (getvar "cmdactive"))) (command pause))<br />   (setq obj (Vlax-Ename->Vla-Object(entlast)))<br />   (vla-put-constantwidth obj 20)<br />   (vla-put-color obj 181 )<br />   (vla-put-layer obj "DGWT-REV" )<br />   (princ)<br /> )

ferious

多谢，是草图，sketch。能帮忙再看下吗？

(command "_sketch"  ""  "T" "p" "I" "1"  ""  )

ferious

感谢前辈，手绘线ok

ferious

前辈，好像不对，画出的是直线，不是pl?能帮忙再看下那个Sk语句？

ferious

还有能不能增加，鼠标左键点击后开始画线，完事直接空格退出的功能

飞雪神光

ferious 发表于 2024-1-10 09:06
还有能不能增加，鼠标左键点击后开始画线，完事直接空格退出的功能

下次点这里    ↓ 回复我 要不我看不到 我第一次给你的就是pl线 你要用草图画 就再合并一下生成的直线 点击后开始画线 就自己加个getpoint
                    ↓
                    ↓
                    ↓
                    ↓
                    ↓
                    ↓
                    ↓
                    ↓

ferious

飞雪神光 发表于 2024-1-10 11:41
下次点这里    ↓ 回复我 要不我看不到 我第一次给你的就是pl线 你要用草图画 就再合并一下生成的直线 点 ...

嗯，好的。sk命令有一个多段线模式，不是直接pl命令或者entmake生成多段线（）。但是这个sk命令的command语句我写总是出错，问题在这里，能帮忙解绝下吗？

飞雪神光

ferious 发表于 2024-1-10 12:01
嗯，好的。sk命令有一个多段线模式，不是直接pl命令或者entmake生成多段线（）。但是这个sk命令的command ...

按命令流多试试 我07的 命令流和你的不一样