API应用 块内实体的自由拉伸

st788796

1. (defun c:tt (/ e pts p1)
   
2.   (if (and (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "INSERT")))))
   
3.            (setq pts (xd::doc:getpolygon nil nil 1))
   
4.            (setq p1 (getpoint (car pts) "\nDirection: "))
   
5.       )
   
6.     (xdrx_entity_stretch e pts (mapcar '- p1 (car pts)))
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:tt (/ e pts p1)<br />   (if (and (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "INSERT")))))<br />            (setq pts (xd::doc:getpolygon nil nil 1))<br />            (setq p1 (getpoint (car pts) "\nDirection: "))<br />       )<br />     (xdrx_entity_stretch e pts (mapcar '- p1 (car pts)))<br />   )<br />   (princ)<br /> )<br />

newer

选完后，块内被选中的实体要是能亮显就牛X了。

st788796

newer 发表于 2014-11-4 20:48
选完后，块内被选中的实体要是能亮显就牛X了。

模拟亮显块内曲线好像写过的

Feverpitch

请问下s大 xdrx_entity_stretch这个api在新版本的cad能用吗
我下载试了没有效果啊 运行 (xdrx_entity_stretch e pts (mapcar '- p1 (car pts)))这一行就返回nil
在cad的 lisp编辑器里 xdrx_entity_stretch  是蓝色的 说明已经加载了的吧
前面两个xdrx_entsel和xd::doc:getpolygon都有正常的返回值