能否用lisp实现快速将选中的图元另存一个cad文件

yaokui25

把黄色线段通过命令实现闭合多段线
每块材料名称必须保证在多段线内
这样的话就可以实现批量输出单品。

情迷法兰西0

司徒妙嘉 发表于 2017-11-28 09:43
很像,很像! 兄弟,我就指望你了!

鄙人思路如下
爱lisp开发论坛 - 一个专业的CAD二次开发论坛!  http://bbs.ivlisp.com/forum.php? ... ;tid=497&extra=

司徒妙嘉

情迷法兰西0 发表于 2017-11-29 08:23
鄙人思路如下
爱lisp开发论坛 - 一个专业的CAD二次开发论坛!  http://bbs.ivlisp.com/forum.php?mod=vie ...

哎呀,原来自己搞了个论坛啊.
代码我看了, 但是我不是很看得懂. 以下几个问题请教下:
1. 是不是对象必须是要多段线,而且多段线轮廓内不能再有孔?
2. 是不是必须像你前面演示gif里面一样, 每个子图都要在相同大小的框内, 然后通过等量变换中心位置来循环?
3. "图元中点","图元对角"咋整?

情迷法兰西0

司徒妙嘉 发表于 2017-11-29 12:06
哎呀,原来自己搞了个论坛啊.
代码我看了, 但是我不是很看得懂. 以下几个问题请教下:
1. 是不是对象必须 ...

回您的问题
1、对象是不是多段线不重要，只要能确定出一个选择集即可。多段线内能不能再有孔？随便，只要包含在选择集内的都会被另存为一个DWG
2、每个子图相不相同不重要，只要可以每次确定选择集即可，通过何种方式进行中心位置循环 不重要，这个是视觉效果，可以不变换视口内容。
3、图元中点，图元对角为defun 的子函数
4、不是我的论坛，只是已经发在一个论坛了就没必要发重复的帖子在明经了

血司

ssget wblock就行

司徒妙嘉

情迷法兰西0 发表于 2017-11-29 13:07
回您的问题
1、对象是不是多段线不重要，只要能确定出一个选择集即可。多段线内能不能再有孔？随便，只 ...

我真的还是小白, 你对我用您这样的称呼我受不起啊,,,
我看到代码第三行就是(setq ss(ssget'((0 . "*polyline")))这不是选中多段线的意思吗? \n子图是不是都要放到像图2那样的格子区域内?像图1这样的用不了的?

血司

血司 发表于 2017-11-29 15:18
ssget wblock就行

(setq wz (ssget "WP" pts (list '(0 . "TEXT"))))

司徒妙嘉

情迷法兰西0 发表于 2017-11-29 13:07
回您的问题
1、对象是不是多段线不重要，只要能确定出一个选择集即可。多段线内能不能再有孔？随便，只 ...

你的那代码里面就是在图元中心跟图框对角上面的plinexy是什么函数啊??

司徒妙嘉

血司 发表于 2017-11-30 08:55
(setq wz (ssget "WP" pts (list '(0 . "TEXT"))))

2. (defun c:ftc ( tcont pt / n ent enttype)
   
3.         (setq pt (ssget)
   
4.                 n 0
   
5.                 ent (ssname pt n)
   
6.                 enttype (cdr (assoc 0 (entget ent)))
   
7.         )
   
8.         (while (/= enttype "TEXT")
   
9.                 (setq n (1+ n))
   
10.                 (setq ent (ssname pt n)
    
11.                         enttype (cdr (assoc 0 (entget ent)))
    
12.                 )
    
13.                 ;(princ n)
    
14.                 ;(princ ent)
    
15.                 ;(princ enttype)
    
16.                 ;(princ "\n")
    
17.         )
    
18.         (setq tcont (cdr (assoc 1 (entget ent))))
    
19.         (command "wblock" pt (strcat "C:\Users\Onca\Desktop" tcont ".dwg")
    
20. )

(defun c:ftc ( tcont pt / n ent enttype)<br />         (setq pt (ssget)<br />                 n 0<br />                 ent (ssname pt n)<br />                 enttype (cdr (assoc 0 (entget ent)))<br />         )<br />         (while (/= enttype "TEXT")<br />                 (setq n (1+ n))<br />                 (setq ent (ssname pt n)<br />                         enttype (cdr (assoc 0 (entget ent)))<br />                 )<br />                 ;(princ n)<br />                 ;(princ ent)<br />                 ;(princ enttype)<br />                 ;(princ "\n")<br />         )<br />         (setq tcont (cdr (assoc 1 (entget ent))))<br />         (command "wblock" pt (strcat "C:\Users\Onca\Desktop" tcont ".dwg")<br /> )

我取到了需要独立成图形文件(pt), 以及命名该文件的用的文件名就是框选内容中的问题内容(tcont),
我该怎么把这两个参数给到"wblock"就是上面代码最后一句.

Kye

;还是73哥说的WBLOCK好 (defun ss2lst (ss / l n) ;_by Gu_lx  (repeat (setq n (sslength ss))  (setq l (cons (ssname ss (setq n (1- n))) l))  )  l ) ;;;取出图元索引i对应的值 (defun dxf (ent i)  (cdr (assoc i (entget ent))) ) (defun c:tt (/ fold ss txtent name fl path)  (setq Fold (getvar "dwgprefix"));_当前文件路径  (setq ss (ssget))  (setq TxtEnt (car (vl-remove-if-not '(lambda (ent) (= "TEXT" (dxf ent 0)))(ss2lst ss))))  (setq name (dxf txtent 1))  (setq flpath (strcat fold name))  (command "wblock" flpath "" "0,0" ss "" ) )