自贡黄明儒 发表于 2014-5-30 09:41:51

亮显块内对象---发一个程序来表示对元老ll_j的感谢

http://bbs.mjtd.com/thread-110255-1-1.html这个贴子里的问题困绕我很久了，故发一个程序来表示对元老ll_j的感谢
;;亮显块内线圆
(defun C:w1 (/ E EN PTS X Y)
(setq en (nentsel))
(setq pts (LM:Entity->PointList (car en)))
(setq e (car (cadddr en)))                          ;块
(vl-cmdf "_.ucs" "_OB" e)                                  ;wcs
(setq pts (mapcar '(lambda (x) (trans x 1 0)) pts))          ;ucs
(vl-cmdf "_.ucs" "_p")                                  ;恢复ucs
(setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))
(mapcar '(lambda (x y) (GRDRAW x y 1)) pts (cdr pts))
)

lucas_3333 发表于 2014-5-30 09:49:09

哈哈，有意思！

xyp1964 发表于 2014-5-30 13:06:48

有何意义？

自贡黄明儒 发表于 2014-5-30 16:01:36

xyp1964 发表于 2014-5-30 13:06 static/image/common/back.gif
有何意义？

意义可能每个人看法不同，本贴的意义在于看到点是怎么转换的。对于你来说，确实没有意义。

crtrccrt 发表于 2014-6-3 22:27:45

不等比块，出问题了，即不适合不等比块

liu22737 发表于 2014-6-4 08:02:31

如果只是亮显可以借助CAD的TRIM命令啊

xinxirong 发表于 2016-10-24 16:23:37

楼上做法都不对，这时只要祭出arx的AcDbFullSubentPath类就什么子对象都可以亮显，包括三维实体的线、面、嵌套块内的各种对象。grdraw只能够画简单的线，如果其它实体就不行。

Nico 发表于 2024-1-23 19:13:35

本帖最后由 Nico 于 2024-1-23 19:28 编辑

哪位帮助改成 选择多个块内的对象复制到块外,原来有个Ncopy命令
页: [1]
查看完整版本: 亮显块内对象---发一个程序来表示对元老ll_j的感谢