求解！！！！！！

suiran

以下程序可以运行，但是结果却不是我想要的4号（青色）颜色，求坛友们指点迷津！

• (defun c:test()
• (prompt"\n===您即将检测单个图元是否超宽 ……")
• (setvar "dimzin" 0)       
• (prompt "\n<<框选图元：>>")
• (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
•   (progn
•   (repeat (setq i (sslength ss))
•     (setq i (1- i))
•     (setq ent (ssname ss i))
•     (setq dxf (entget ent))
•     (setq ptb (mapcar 'cdr (vl-remove-if '(lambda(a)(/= (car a) 10)) dxf))) ;生成坐标值表
•     (setq ptb (vl-sort ptb '(lambda(a b)
•        (< (cadr a) (cadr b)))))
•     (setq miny (cadr (car ptb)))
•     (setq ptb (vl-sort ptb '(lambda(a b)
•        (> (cadr a) (cadr b)))))
•     (setq maxy (cadr (car ptb)))
•     (setq widthy (abs(- maxy miny)))
•     (print widthy)
•                 (if (> widthy 1000)
• (progn
•                         (setq dxf(subst(cons 8 "0") (assoc 8 dxf) dxf))
•                           (setq dxf(subst(cons 62 4) (assoc 62 dxf) dxf))     ;;;;;;;;运行结果为啥不是4号颜色？？？
•                           (setq dxf(subst(cons 6 "ByLayer") (assoc 6 dxf) dxf))
•                           (setq dxf(subst(cons 370 1) (assoc 370 dxf) dxf))
•                           (entmod dxf)
•                                                                                                  )
• (progn
•                         (setq dxf(subst(cons 8 "CUTME") (assoc 8 dxf) dxf))
•                          (setq dxf(subst(cons 62 256) (assoc 62 dxf) dxf))
•                          (setq dxf(subst(cons 6 "ByLayer") (assoc 6 dxf) dxf))
•                          (setq dxf(subst(cons 370 1) (assoc 370 dxf) dxf))
•                          (entmod dxf)
•                                                                                                  )
•                                              )
•    )
• )
• )
•         (princ))
  

start4444

应该是颜色随层，那就没有62码了

suiran

start4444 发表于 2023-7-8 22:39
应该是颜色随层，那就没有62码了

哦，明白了，谢谢！

loveu515

学到了，感谢分享

xyp1964

1. (defun c:tt ()
   
2.   (defun p1p9 (s1 / p1 p9)
   
3.     (vla-getboundingbox (vlax-ename->vla-object s1) 'p1 'p9)
   
4.     (list (vlax-safearray->list p1) (vlax-safearray->list p9))
   
5.   )
   
6.   (princ "\n检测单个图元是否超宽…… ")
   
7.   (princ "\n框选图元: ")
   
8.   (setq i -1)
   
9.   (if (setq ss (ssget '((0 . "*POLY*"))))
   
10.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.       (setq ob (vlax-ename->vla-object s1))
    
12.       (setq a (p1p9 s1))
    
13.       (if (> (abs (- (cadar a) (cadadr a))) 1000)
    
14.         (progn (vla-put-layer ob "0") (vla-put-color ob 4))
    
15.         (progn (vla-put-layer ob "CUTME") (vla-put-color ob 256))
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (defun p1p9 (s1 / p1 p9)<br />     (vla-getboundingbox (vlax-ename->vla-object s1) 'p1 'p9)<br />     (list (vlax-safearray->list p1) (vlax-safearray->list p9))<br />   )<br />   (princ "\n检测单个图元是否超宽…… ")<br />   (princ "\n框选图元: ")<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*POLY*"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq ob (vlax-ename->vla-object s1))<br />       (setq a (p1p9 s1))<br />       (if (> (abs (- (cadar a) (cadadr a))) 1000)<br />         (progn (vla-put-layer ob "0") (vla-put-color ob 4))<br />         (progn (vla-put-layer ob "CUTME") (vla-put-color ob 256))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

suiran

xyp1964 发表于 2023-7-9 09:18

你这个程序就有点高深了，一时半会消化不了，但是有个问题想请教一下：我用(command "layer" "n" "CUTME" "c" "1" "CUTME" "") 建立的CUTME图层，也设置了颜色是1号颜色，为什么结果却是BYLayer呢？这样的话就没有62码了，请赐教。