使用纯VLA写程序

/db_自贡黄明儒_

真正的新技术

GTJ116600

这个绝对是功夫，VLISP和ALISP交叉的程序可以写，而纯用VLISP就不是一般战士喽

cxjzxf

其实跟VBA的方法一样的。

zhangq_cai1

纯vlisp功力强大，期待续集~~~~~~~~~~~~~~~~~~··

hahadang

只要是方便的程序代码，怎么都无所谓。

Free-Lancer

一般用好Activeselectionset就够了

Free-Lancer

续两个

1. ;;=====================================
   
2. (defun fy:entsel (msg obj ip /)
   
3.   (null        (vl-catch-all-error-p
   
4.           (vl-catch-all-apply
   
5.             'vla-getentity
   
6.             (list (fy:acUtil) obj ip msg)
   
7.           )
   
8.         )
   
9.   )  
   
10. )
    
11. (defun fy:getptss (pt filter / cset)
    
12.   (fy:clearcset)
    
13.   (setq cset (vla-add (fy:acsssets) "CURRENT"))
    
14.   (vla-selectatpoint
    
15.     cset
    
16.     (vlax-3d-point pt)
    
17.     (list->variantarray (mapcar 'car filter) vlax-vbInteger)
    
18.     (list->variantarray (mapcar 'cdr filter) vlax-vbvariant)
    
19.   )
    
20.   (if (> (vla-get-count (fy:cset)) 0)
    
21.     (fy:cset->objs)
    
22.     nil
    
23.   )
    
24. )

;;=====================================<br /> (defun fy:entsel (msg obj ip /)<br />   (null        (vl-catch-all-error-p<br />           (vl-catch-all-apply<br />             'vla-getentity<br />             (list (fy:acUtil) obj ip msg)<br />           )<br />         )<br />   )  <br /> )<br /> (defun fy:getptss (pt filter / cset)<br />   (fy:clearcset)<br />   (setq cset (vla-add (fy:acsssets) "CURRENT"))<br />   (vla-selectatpoint<br />     cset<br />     (vlax-3d-point pt)<br />     (list->variantarray (mapcar 'car filter) vlax-vbInteger)<br />     (list->variantarray (mapcar 'cdr filter) vlax-vbvariant)<br />   )<br />   (if (> (vla-get-count (fy:cset)) 0)<br />     (fy:cset->objs)<br />     nil<br />   )<br /> )

(fy:entsel "\nPick Object: " '#obj '#ip)
(fy:getptss (getpoint) '((0 . "line")))

77077

fillist '((0 . "LINE")(8 . "0")...) 和ssget'((0 . "LINE")(8 . "0")...) 的区别是?

434939575

长见识了。多谢。

怒放的生命acai

这个非常好，谢谢分享

hjting

vla 不太懂