bing00 发表于 2017-12-2 10:11:16

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

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

fsafaffa 发表于 2017-12-2 11:29:43

帮顶，这个太实用了

xinxirong 发表于 2017-12-2 16:17:32

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

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

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

wyl219 发表于 2017-12-4 01:45:40

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


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

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

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

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

wyl219 发表于 2017-12-10 09:34:58

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


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

flyhorse 发表于 2018-2-25 21:50:26

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

雄__鹰 发表于 2018-10-26 16:23:42

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

流动的清泉 发表于 2021-3-15 15:40:16

有没有源码，伪源码 没什么意义。
页: [1]
查看完整版本: 如何不进入块内参照编辑就能改变某对象颜色的lisp？