API应用 将块替换为点

st788796

1. (defun c:tt (/ e ss)
   
2.   (and (setq e (car (xdrx_entsel "\n拾取替换块: " '((0 . "insert")))))
   
3.        (progn
   
4.          (princ "\n选择替换范围<回车全选>....")
   
5.          (if (setq ss (ssget (list (assoc 2 (entget e)))))
   
6.            ss
   
7.            (setq ss (ssget "x" (list (assoc 2 (entget e)))))
   
8.          )
   
9.        )
   
10.        (mapcar '(lambda        (x)
    
11.                   (xdrx_point_make (xdrx_getpropertyvalue x "position"))
    
12.                 )
    
13.                (xdrx_pickset->ents ss)
    
14.        )
    
15.        (xdrx_entity_delete ss)
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:tt (/ e ss)<br />   (and (setq e (car (xdrx_entsel "\n拾取替换块: " '((0 . "insert")))))<br />        (progn<br />          (princ "\n选择替换范围<回车全选>....")<br />          (if (setq ss (ssget (list (assoc 2 (entget e)))))<br />            ss<br />            (setq ss (ssget "x" (list (assoc 2 (entget e)))))<br />          )<br />        )<br />        (mapcar '(lambda        (x)<br />                   (xdrx_point_make (xdrx_getpropertyvalue x "position"))<br />                 )<br />                (xdrx_pickset->ents ss)<br />        )<br />        (xdrx_entity_delete ss)<br />   )<br />   (princ)<br /> )<br />

friendfgj

不能用啊，麻烦再改一下吧

Free-Lancer

friendfgj 发表于 2014-11-11 17:21
不能用啊，麻烦再改一下吧

楼主程序用了  xdrxapi ，不加载 api 肯定不能用了

1. (defun c:tt (/)
   
2.    (fy:begin)
   
3.    (if (ssget '((0 . "insert")))
   
4.       (mapcar '(lambda (x) (point:make (vlax-get x 'insertionpoint))(vla-delete x)) (fy:cset->objs))
   
5.    )
   
6.    (fy:end)
   
7.    (princ)
   
8. )
   

(defun c:tt (/)<br />    (fy:begin)<br />    (if (ssget '((0 . "insert")))<br />       (mapcar '(lambda (x) (point:make (vlax-get x 'insertionpoint))(vla-delete x)) (fy:cset->objs))<br />    )<br />    (fy:end)<br />    (princ)<br /> )<br />

lucas3

Free-Lancer 发表于 2014-11-11 17:37
楼主程序用了  xdrxapi ，不加载 api 肯定不能用了

大师, 将块替换为点 起什么作用呢?

st788796

lucas3 发表于 2014-11-12 11:48
大师, 将块替换为点 起什么作用呢?

或许某些专业用来打点

friendfgj

用来直接导入mapinfo，计算经纬度值

XDSoft

friendfgj 发表于 2014-11-13 09:43
用来直接导入mapinfo，计算经纬度值

能详细说说你们专业处理的过程吗，或许给你写个工具，能让你导入然后计算经纬度。

friendfgj

XDSoft 发表于 2014-11-13 10:52
能详细说说你们专业处理的过程吗，或许给你写个工具，能让你导入然后计算经纬度。

谢谢，已经解决了