[求助]：高手帮我看下多段线线宽匹配的程序，谢谢！

eobser

修改线宽实现不了，是不是关于entmod,entupd两函数？

(defun c:rw ()
   (setvar "cmdecho" 0)
   (setq entlist (entget (car (entsel "\n选择源线段："))))
   (setq ent40 (cdr (assoc 40 entlist)))
   (setq ss (ssget (list (cons 0 "LWPOLYLINE"))))
   (setq ssn (sslength ss))
   (setq ii 0)
   (repeat ssn
      (setq en (ssname ss ii))
      (setq entii (entget en))
      (setq nn (length entii))
      (setq xx 0)
      (repeat nn
         (setq entth (nth xx entii))
         (setq key (car entth))
         (setq keyz (cdr entth))
         (if (and (= key 40) (/= keyz ent40))
             (entmod (setq entii (subst (cons 40 ent40) entth entii)))
         )
         (if (and (= key 41) (/= keyz ent40))
             (entmod (setq entii (subst (cons 41 ent40) entth entii)))
         )         
         (setq xx (1+ xx))
      )
      (entupd en)
      (setq ii (1+ ii))
   )
   (princ)
)

ljpnb

[php]
(defun c:rw ()
  (setvar "cmdecho" 0)
  (setq entlist (entget (car (entsel "\n选择源线段："))))
  (setq ent40 (cdr (assoc 40 entlist)))
  (setq ss (ssget (list (cons 0 "LWPOLYLINE"))))
  (setq ssn (sslength ss))
  (setq ii 0)
  (repeat ssn
    (setq en (ssname ss ii))
    (setq entii (entget en))
    ;;(setq nn (length entii))
    (setq xx 0 loop T)
    ;;(repeat nn
    (while loop
      (setq entth (nth xx entii))
      (setq key (car entth))
      (setq keyz (cdr entth))
      (if (and (= key 43) (/= keyz ent40));_少了43这一组
        (entmod (setq entii (subst (cons 43 ent40) entth entii)))
      )
      (if (and (= key 40) (/= keyz ent40))
        (entmod (setq entii (subst (cons 40 ent40) entth entii)))
      )
      (if (and (= key 41) (/= keyz ent40))
        (progn
        (entmod (setq entii (subst (cons 41 ent40) entth entii)))
        (setq loop nil)
        )
      )
      (setq xx (1+ xx))
    )
    (entupd en)
    (setq ii (1+ ii))
  )
  (princ)
)[/php]

xyp1964

对多段线无效，须用pedit命令。

2. [FONT=courier new](defun c:rw ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq        entlist        (entget (car (entsel "\n选择源线段: ")))
   
5.         etype        (cdr (assoc 0 entlist))
   
6.   )
   
7.   (if (or (= etype "POLYLINE")
   
8.           (= etype "LWPOLYLINE")
   
9.       )
   
10.     (progn
    
11.       (princ"\n选择多段线: ")
    
12.       (setq ent40 (cdr (assoc 40 entlist)))
    
13.       (if (setq ss (ssget (list (cons 0 "*POLYLINE"))))
    
14.         (command "pedit" "M" ss "" "w" ent40 "")
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )[/FONT]

[FONT=courier new](defun c:rw ()<br />   (setvar "cmdecho" 0)<br />   (setq        entlist        (entget (car (entsel "\n选择源线段: ")))<br />         etype        (cdr (assoc 0 entlist))<br />   )<br />   (if (or (= etype "POLYLINE")<br />           (= etype "LWPOLYLINE")<br />       )<br />     (progn<br />       (princ"\n选择多段线: ")<br />       (setq ent40 (cdr (assoc 40 entlist)))<br />       (if (setq ss (ssget (list (cons 0 "*POLYLINE"))))<br />         (command "pedit" "M" ss "" "w" ent40 "")<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

ljpnb

请教xyp1964版，什么实体产生的是"POLYLINE"，我用pline画的得到的全是"LWPOLYLINE"

eobser

[PHP]谢谢！可以了[/PHP][/COLOR]