求程序，将选择的封闭pl线（能多选）内长度大于100的line线改到“临时图层5”

lengliqun

yoyoho

;感谢诸位分享源码程序
;网上找到求各顶点列表的程序
;引用yshf 的源码程序
;AUTOCAD 2008 下测试O.K.
;将封闭pl线内长度大于100的line置“临时图层5”。
;en各顶点列表自己去弄，网上多得是。
(defun c:ccc ()
    (setq cm (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (if (setq ssa (ssget '((0 . "LWPOLYLINE") (70 . 1))))
        (progn
           (setq i 0  n (sslength ssa))
           (repeat n
              (setq en (ssname ssa i)
                    i  (1+ i)
              )
              (setq ptb (vertexs en))
              (if (setq ssb (ssget "wp" ptb '((0 . "LINE"))))
                  (progn
                     (setq j 0  m (sslength ssb))
                     (repeat m
                         (setq obj (ssname ssb j)
                               j   (1+ j)
                         )
                         (command "_lengthen" obj "")
                         (if (> (getvar "PERIMETER") 100.0)
                             (command ".chprop" obj "" "layer" "临时图层5" "")
                         )
                     )
                  )
              )
           )
        )
    )
    (setvar "cmdecho" cm)
    (princ)
)


;;;返回多段线的各顶点
;语法:
;(vertexs ename)
;说明:
;返回多段线的各顶点


; 函数内容:

(defun vertexs (ename / plist pp n)
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list
  (vlax-variant-value
    (vla-get-coordinates obj))))
  (setq n 0)
  (repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n 2))
  )
  pp
)


;  参数:
;ename:图元名
;返回值: 各顶点形成的列表

lengliqun

请大家帮帮忙，谢谢。

Andyhon

2. 
   
3. ;;; for test only
   
4. (Defun C:test ()
   
5.    (cond
   
6.     ((not (setq ss (ssget '((0 . "LINE"))))))
   
7.     (T
   
8.      (setq i 0
   
9.          SS5 (ssadd)
   
10.      )
    
11. 
    
12.      (while (setq ee (ssname ss i))
    
13.        (setq dat (entget ee)
    
14.               pa (cdr (assoc 10 dat))
    
15.               pb (cdr (assoc 11 dat))
    
16.                i (1+ i)
    
17.        )
    
18.        (if (> (distance pa pb) 100)
    
19.          (ssadd ee ss5)
    
20.        )
    
21.      )
    
22.      (command "chprop" ss5 "" "La" "Temp5" "")
    
23.    ))
    
24. )
    

<br /> ;;; for test only<br /> (Defun C:test ()<br />    (cond<br />     ((not (setq ss (ssget '((0 . "LINE"))))))<br />     (T<br />      (setq i 0<br />          SS5 (ssadd) <br />      )<br /> <br />      (while (setq ee (ssname ss i))<br />        (setq dat (entget ee)<br />               pa (cdr (assoc 10 dat))<br />               pb (cdr (assoc 11 dat))<br />                i (1+ i)<br />        )<br />        (if (> (distance pa pb) 100)<br />          (ssadd ee ss5)<br />        )<br />      )<br />      (command "chprop" ss5 "" "La" "Temp5" "")<br />    ))<br /> )<br />

lengliqun

三楼的程序好像达不要我的目的，我的意思是框选多个封闭的PL线，自动将封闭PL线内的物体改图层。

ZZXXQQ

是这样吗？

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

lengliqun

ZZXXQQ改的是PL线。我的意思不是改PL线，是改PL线内的物体，以封闭PL线的内外为条件过虑。
这个好像不是这么简单。

Andyhon

回复 lengliqun 的帖子

Sorry !
错会了题意 (..大于100的line线改...)

yshf

2. 
   
3. ;将封闭pl线内长度大于100的line置“临时图层5”。
   
4. ;en各顶点列表自己去弄，网上多得是。
   
5. (defun c:ccc ()
   
6.     (setq cm (getvar "cmdecho"))
   
7.     (setvar "cmdecho" 0)
   
8.     (if (setq ssa (ssget '((0 . "LWPOLYLINE") (70 . 1))))
   
9.         (progn
   
10.            (setq i 0  n (sslength ssa))
    
11.            (repeat n
    
12.               (setq en (ssname ssa i)
    
13.                     i  (1+ i)
    
14.               )
    
15.               (setq ptb en各顶点列表)
    
16.               (if (setq ssb (ssget "wp" ptb (0 . "LINE")))
    
17.                   (progn
    
18.                      (setq j 0  m (sslength ssb))
    
19.                      (repeat m
    
20.                          (setq obj (ssname ssb j)
    
21.                                j   (1+ j)
    
22.                          )
    
23.                          (command "_lengthen" obj "")
    
24.                          (if (> (getvar "PERIMETER") 100.0)
    
25.                              (command ".chprop" obj "" "layer" "临时图层5" "")
    
26.                          )
    
27.                      )
    
28.                   )
    
29.               )
    
30.            )
    
31.         )
    
32.     )
    
33.     (setvar "cmdecho" cm)
    
34.     (princ)
    
35. )
    

<br /> ;将封闭pl线内长度大于100的line置“临时图层5”。<br /> ;en各顶点列表自己去弄，网上多得是。<br /> (defun c:ccc ()<br />     (setq cm (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (if (setq ssa (ssget '((0 . "LWPOLYLINE") (70 . 1))))<br />         (progn<br />            (setq i 0  n (sslength ssa))<br />            (repeat n<br />               (setq en (ssname ssa i)<br />                     i  (1+ i)<br />               )<br />               (setq ptb en各顶点列表)<br />               (if (setq ssb (ssget "wp" ptb (0 . "LINE")))<br />                   (progn<br />                      (setq j 0  m (sslength ssb))<br />                      (repeat m<br />                          (setq obj (ssname ssb j)<br />                                j   (1+ j)<br />                          )<br />                          (command "_lengthen" obj "")<br />                          (if (> (getvar "PERIMETER") 100.0)<br />                              (command ".chprop" obj "" "layer" "临时图层5" "")<br />                          )<br />                      )<br />                   )<br />               )<br />            )<br />         )<br />     )<br />     (setvar "cmdecho" cm)<br />     (princ)<br /> )<br />

lengliqun

我搞不定啊，网上找了个求各顶点列表的程序，可不知放哪里啊。
大侠高抬贵手一并弄个完整的可直接执行的程序吧。