如何在CAD中选择点，批量插入3D的块，坐标不变

君是我的泪

如何在CAD中选择点，批量插入自定义的3D的块，坐标不变

newer

理解不了

君是我的泪

newer 发表于 2018-5-22 16:58
理解不了

选择点，插入块，只不过块是三维的

newer

君是我的泪 发表于 2018-5-22 17:03
选择点，插入块，只不过块是三维的

为什么特意强调3D，和2D有什么不同吗？
正常怎么插就怎么插啊

1. (defun c:tt ()
   
2.   (if (and (/= "" (setq na (getstring "\n输入块名<退出>:")))
   
3.            (xdrx_object_get "block" na)
   
4.       )
   
5.     (progn (while (setq pt (getpoint "\n插入点<退出>:"))
   
6.              (xdrx_insert_make na pt 1.0 0.0)
   
7.            )
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:tt ()<br />   (if (and (/= "" (setq na (getstring "\n输入块名<退出>:")))<br />            (xdrx_object_get "block" na)<br />       )<br />     (progn (while (setq pt (getpoint "\n插入点<退出>:"))<br />              (xdrx_insert_make na pt 1.0 0.0)<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

君是我的泪

可不可以全选点插入

newer

君是我的泪 发表于 2018-5-22 17:48
可不可以全选点插入

全选什么点？ 选哪的点？ 求助你要一次都详细的描述好你的问题，会节省你得到帮助的时间，也会节省别人的时间。

君是我的泪

点我是分层的，颜色不一样的，回去试试，qselect选择的点

newer

君是我的泪 发表于 2018-5-22 18:07
点我是分层的，颜色不一样的，回去试试，qselect选择的点

选点实体，就这样

1. (defun c:tt ()
   
2.   (if (and (/= "" (setq na (getstring "\n输入块名<退出>:")))
   
3.            (xdrx_object_get "block" na)
   
4.            (xdrx_initssget "\n选择点实体<退出>:")
   
5.            (setq ss (xdrx_ssget '((0 . "POINT"))))
   
6.       )
   
7.     (progn
   
8.       (mapcar '(lambda (x)
   
9.                  (setq pt (xdrx_getpropertyvalue x "position"))
   
10.                  (xdrx_insert_make na pt 1.0 0.0)
    
11.                )
    
12.               (xdrx_pickset->ents ss)
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    

(defun c:tt ()<br />   (if (and (/= "" (setq na (getstring "\n输入块名<退出>:")))<br />            (xdrx_object_get "block" na)<br />            (xdrx_initssget "\n选择点实体<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "POINT"))))<br />       )<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (setq pt (xdrx_getpropertyvalue x "position"))<br />                  (xdrx_insert_make na pt 1.0 0.0)<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

君是我的泪

newer 发表于 2018-5-22 18:52
选点实体，就这样

可不可以增加设置块的大小的选项,同时增加Z轴高度选项

newer

君是我的泪 发表于 2018-5-22 20:36
不可以增加设置块的大小的选项

自己照猫画虎添加下

(xdrx_insert_make na pt 1.0 0.0)  ；1.0是比例

你在前面添加上 getreal函数获得比例，修改进去。

君是我的泪

newer 发表于 2018-5-22 20:39
自己照猫画虎添加下

(xdrx_insert_make na pt 1.0 0.0)  ；1.0是比例

麻烦抽空修改一下

yangjian001

做一个热心并受欢迎的人！

newer

君是我的泪 发表于 2018-5-24 08:17
麻烦抽空修改一下

1. (defun c:tt ()
   
2.   (if (and (/= "" (setq na (getstring "\n输入块名<退出>:")))
   
3.            (xdrx_object_get "block" na)
   
4.            (setq scl (getreal "\n输入比例<退出>:"))
   
5.            (setq ang (getreal "\n输入转角<退出>:"))
   
6.            (xdrx_initssget "\n选择点实体<退出>:")
   
7.            (setq ss (xdrx_ssget '((0 . "POINT"))))
   
8.       )
   
9.     (progn
   
10.       (setq scl (abs scl))
    
11.       (if (equal scl 0 1e-5)
    
12.         (setq scl 1.0)
    
13.       )
    
14.       (mapcar '(lambda (x)
    
15.                  (setq pt (xdrx_getpropertyvalue x "position"))
    
16.                  (xdrx_insert_make na pt (abs scl) (* PI (/ an 180.0)))
    
17.                )
    
18.               (xdrx_pickset->ents ss)
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

(defun c:tt ()<br />   (if (and (/= "" (setq na (getstring "\n输入块名<退出>:")))<br />            (xdrx_object_get "block" na)<br />            (setq scl (getreal "\n输入比例<退出>:"))<br />            (setq ang (getreal "\n输入转角<退出>:"))<br />            (xdrx_initssget "\n选择点实体<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "POINT"))))<br />       )<br />     (progn<br />       (setq scl (abs scl))<br />       (if (equal scl 0 1e-5)<br />         (setq scl 1.0)<br />       )<br />       (mapcar '(lambda (x)<br />                  (setq pt (xdrx_getpropertyvalue x "position"))<br />                  (xdrx_insert_make na pt (abs scl) (* PI (/ an 180.0)))<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

qincx1234

学习了，谢谢

爱不释手1985

newer 发表于 2018-5-22 17:21
为什么特意强调3D，和2D有什么不同吗？
正常怎么插就怎么插啊

这位前辈请留步，我想在一段多段线里的节点位置和顶点位置插入图块，这个如何操作，请问？
来自: 微社区