ARX函数给Lisp调用实例

ScmTools

Lisp中调用ARX函数实例
[pcode=lisp,true]
(defun c:test ( / i lst pt pt1 pts s1 ss)
  (if (setq ss (ssget '((0 . "*POLYLINE"))))
    (progn
      (setq i -1)
      (while (setq s1 (ssname ss (setq i (1+ i))))
        (setq lst (Get_PointList s1))
        (setq pts nil)
        (foreach pt1 lst
          (setq pts (cons (append
                            (list (car pt1) (cadr pt1))
                          ) pts
                    )
          )
        )
        (entmake (append
                   (list '(0 . "LWPOLYLINE") '(62 . 6) '(100 . "AcDbEntity") '
                         (100 . "AcDbPolyline") (cons 90 (length pts))
                   )
                   (mapcar
                     '(lambda (pt)
                        (cons 10 pt)
                      )
                     pts
                   )
                 )
        )
      )
      (vl-cmdf "_erase" ss "")
    )
  )
  (princ)
)[/pcode]

下面是调用的ARX函数

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

sicky111

原来还可以这样啊。

ScmTools

ARX和LISP之间可以很好的相互调用函数

XD0001

这个例子很经典

MoldTL

必须支持,正好在学习这方面的

FlyBird888

例子很经典，必须支持一个

JackTool

很好的例子，支持一个

GTJ116600

我也学习学习

GTJ116600

各位大侠，怎么使用呀？我是菜鸟，看不懂呀
另外，lisp程序中调用的是get_pointlist 函数，ARX中是ads_Get_PointList(void)
，是不是笔误呀？另ARX函数是不是要编译成ARX在调用呀

Gdlprfcu

请问如何返回一个选择集给LISP调用？

Gdlprfcu

请问如何返回一个选择集给LISP调用？

LoveArx

Gdlprfcu 发表于 2013-5-4 23:46

                               
登录/注册后可看大图

请问如何返回一个选择集给LISP调用？

2. 
   
3. acedRetName Global Function int
   
4. 
   
5. acedRetName(
   
6. 
   
7. const ads_name aname,
   
8. 
   
9. int type);
   
10. 
    
11. aname Selection set or entity name
    
12. type Pass RTPICKS if aname to specify a selection set or RTENAME if aname to specify an entity
    
13. 
    
14. Returns a selection set or entity name to AutoLISP, depending on the value of the type argument.
    
15. 
    
16. The AutoLISP expression that invoked the external function returns the name result as built-in and user-defined AutoLISP functions do.
    
17. 
    
18. An external function can make more than one call to value-return functions upon a single kInvkSubrMsg message, but the AutoLISP function returns only the value passed it by the last value-return function invoked.
    
19. 
    
20. If acedRetName() succeeds, it returns RTNORM; it returns RTERROR if it fails or if aname is a null pointer.
    
21. 
    
22. Include File
    
23. acedads.h
    

<br /> acedRetName Global Function int<br /> <br /> acedRetName(<br /> <br /> const ads_name aname,<br /> <br /> int type);<br /> <br /> aname Selection set or entity name <br /> type Pass RTPICKS if aname to specify a selection set or RTENAME if aname to specify an entity <br /> <br /> Returns a selection set or entity name to AutoLISP, depending on the value of the type argument. <br /> <br /> The AutoLISP expression that invoked the external function returns the name result as built-in and user-defined AutoLISP functions do.<br /> <br /> An external function can make more than one call to value-return functions upon a single kInvkSubrMsg message, but the AutoLISP function returns only the value passed it by the last value-return function invoked.<br /> <br /> If acedRetName() succeeds, it returns RTNORM; it returns RTERROR if it fails or if aname is a null pointer.<br /> <br /> Include File<br /> acedads.h <br />

Gdlprfcu

LoveArx 发表于 2013-5-4 23:55

                               
登录/注册后可看大图

Thank you very much！

守仁格竹GM

学习学习