批量“PL多段线车位”做单独块

感激过去

请问如何批量将“PL多段线车位”做单独一个个的车位块，无论车位角度如何。。期待高手帮忙。。
目前是一个个的PL线车位，期待批量转为一个个车位快，就算在目前车位加个框也可以，只要是个块，目的是要最后的块。

lrd1861

http://bbs.mjtd.com/thread-91905-1-1.html  这个可以满足你的要求

感激过去

测试没法完成任务，有人帮忙下不？

Gu_xl

最基本的命令方式制块！

1. (defun c:tt (/ a e ss n name)
   
2.   (setq a (getvar 'cmdecho))
   
3.   (setvar 'cmdecho 0)
   
4.   (if (setq ss (ssget '((0 . "lwpolyline"))))
   
5.     (repeat (setq n (sslength ss))
   
6.       (setq e (ssname ss (setq n (1- n))))
   
7.       (command "block"
   
8.                (setq name (rtos (getvar 'date) 2 16))
   
9.                "0,0,0"
   
10.                e
    
11.                ""
    
12.                "insert"
    
13.                name
    
14.                "0,0,0"
    
15.                1
    
16.                1
    
17.                0
    
18.       )
    
19.     )
    
20.   )
    
21.   (setvar 'cmdecho a)
    
22.   (princ)
    
23. )

(defun c:tt (/ a e ss n name)<br />   (setq a (getvar 'cmdecho))<br />   (setvar 'cmdecho 0)<br />   (if (setq ss (ssget '((0 . "lwpolyline"))))<br />     (repeat (setq n (sslength ss))<br />       (setq e (ssname ss (setq n (1- n))))<br />       (command "block"<br />                (setq name (rtos (getvar 'date) 2 16))<br />                "0,0,0"<br />                e<br />                ""<br />                "insert"<br />                name<br />                "0,0,0"<br />                1<br />                1<br />                0<br />       )<br />     )<br />   )<br />   (setvar 'cmdecho a)<br />   (princ)<br /> )

感激过去

Gu_xl 发表于 2014-10-30 20:22
最基本的命令方式制块！

感谢版主。。是能做成块，但是块的名字不一样，请问有没办法把所有块名能成一样？
角度、位置都保持不变，谢谢··

xyp1964

freehand8008

G版块插入点是00，院长的是角点

kfboy

可以用实体替换功能

感激过去

lrd1861 发表于 2014-10-30 19:42
http://bbs.mjtd.com/thread-91905-1-1.html  这个可以满足你的要求

测试只能查找到实体，但是做块功能没出来，你测试了吗？

lrd1861

感激过去 发表于 2014-10-31 16:07
测试只能查找到实体，但是做块功能没出来，你测试了吗？

完全可以！III