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

自贡黄明儒

http://bbs.mjtd.com/thread-110255-1-1.html这个贴子里的问题困绕我很久了，故发一个程序来表示对元老ll_j的感谢

2. 
   
3. ;;亮显块内线圆
   
4. (defun C:w1 (/ E EN PTS X Y)
   
5.   (setq en (nentsel))
   
6.   (setq pts (LM:Entity->PointList (car en)))
   
7.   (setq e (car (cadddr en)))                            ;块  
   
8.   (vl-cmdf "_.ucs" "_OB" e)                                    ;wcs
   
9.   (setq pts (mapcar '(lambda (x) (trans x 1 0)) pts))            ;ucs
   
10.   (vl-cmdf "_.ucs" "_p")                                    ;恢复ucs
    
11.   (setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))
    
12.   (mapcar '(lambda (x y) (GRDRAW x y 1)) pts (cdr pts))
    
13. )
    

<br /> ;;亮显块内线圆<br /> (defun C:w1 (/ E EN PTS X Y)<br />   (setq en (nentsel))<br />   (setq pts (LM:Entity->PointList (car en)))<br />   (setq e (car (cadddr en)))                            ;块  <br />   (vl-cmdf "_.ucs" "_OB" e)                                    ;wcs<br />   (setq pts (mapcar '(lambda (x) (trans x 1 0)) pts))            ;ucs<br />   (vl-cmdf "_.ucs" "_p")                                    ;恢复ucs<br />   (setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))<br />   (mapcar '(lambda (x y) (GRDRAW x y 1)) pts (cdr pts))<br /> )<br />

lucas_3333

哈哈，有意思！

xyp1964

有何意义？

自贡黄明儒

xyp1964 发表于 2014-5-30 13:06
有何意义？

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

crtrccrt

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

liu22737

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

xinxirong

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

Nico

哪位帮助改成 选择多个块内的对象复制到块外,  原来有个  Ncopy命令