如何不进入块内参照编辑就能改变某对象颜色的lisp？

bing00

如何不进入块内参照编辑就能改变某对象颜色的lisp？补充：加入一个块内有很多线，而常规的操作是进入块内在改变其颜色，现问题是，有木有个LISP可以不进入块就能改变对象（线）的颜色呢？高手赐教！学术交流多沟通多进步

fsafaffa

帮顶，这个太实用了

xinxirong

用arx可以ssget框选块内多个对象。
LISP改块内对象要用vla方法。

xyp1964

1. ;; tt(改快内实体颜色)
   
2. (defun c:tt ()
   
3.   (setq co (Uint 7 "" "颜色" co))
   
4.   (while (and (setq e (nentsel "\n选择: "))
   
5.               (= (length e) 4)
   
6.          )
   
7.     (setq s1 (car e)
   
8.           s1 (xyp-SubUpd s1 62 co)
   
9.     )
   
10.     (vla-Update (vlax-ename->vla-object (car (last e))))
    
11.   )
    
12.   (princ)
    
13. )

;; tt(改快内实体颜色)<br /> (defun c:tt ()<br />   (setq co (Uint 7 "" "颜色" co))<br />   (while (and (setq e (nentsel "\n选择: "))<br />               (= (length e) 4)<br />          )<br />     (setq s1 (car e)<br />           s1 (xyp-SubUpd s1 62 co)<br />     )<br />     (vla-Update (vlax-ename->vla-object (car (last e))))<br />   )<br />   (princ)<br /> )

wyl219

xyp1964 发表于 2017-12-2 19:36

那请问如何更改块中图案填充的图案呢？

xyp1964

wyl219 发表于 2017-12-4 01:45
那请问如何更改块中图案填充的图案呢？

1. ;; tt(改快内填充颜色和图案)
   
2. (defun c:tt ()
   
3.   (setq co (Uint 7 "" "颜色" co))
   
4.   (while (and (setq e (nentsel "\n选择: "))
   
5.               (= (length e) 4)
   
6.               (xyp-etype (car e) "hatch")
   
7.          )
   
8.     (setq s1 (car e)
   
9.           s1 (xyp-SubUpd s1 62 co)
   
10.           s2 (xyp-SubUpd s1 2 "line")
    
11.     )
    
12.     (vla-Update (vlax-ename->vla-object (car (last e))))
    
13.   )
    
14.   (princ)
    
15. )

;; tt(改快内填充颜色和图案)<br /> (defun c:tt ()<br />   (setq co (Uint 7 "" "颜色" co))<br />   (while (and (setq e (nentsel "\n选择: "))<br />               (= (length e) 4)<br />               (xyp-etype (car e) "hatch")<br />          )<br />     (setq s1 (car e)<br />           s1 (xyp-SubUpd s1 62 co)<br />           s2 (xyp-SubUpd s1 2 "line")<br />     )<br />     (vla-Update (vlax-ename->vla-object (car (last e))))<br />   )<br />   (princ)<br /> )

wyl219

xyp1964 发表于 2017-12-4 13:27

提示未定义函数Uint，是需要加载额外的函数库么？

flyhorse

怎么搞？我一点思路都没有。

雄__鹰

应该是要加载e派工具箱后才能运行院长的函数。进入e派工具箱QQ群里可以下载。

流动的清泉

有没有源码，伪源码 没什么意义。