如何在cad 的table 中用alisp 或 alisp 方法插入快

brainstorm

如题目所示

marting

下面代码在你点取的单元格里面插入你选择的块

1. (defun c:tt ()
   
2.   (if (and (setq tb (car (entsel "\n点取表格<退出>:")))
   
3.            (setq tb (vlax-ename->vla-object tb))
   
4.            (setq e (car (entsel "\n点取图块<退出>:")))
   
5.            (setq p (getpoint "\n点取单元格<退出>:"))
   
6.            (setq p (trans p 1 0))
   
7.            (setq hit (vla-hittest
   
8.                        tb
   
9.                        (vlax-3d-point p)
   
10.                        (vlax-3d-point '(0 0 1))
    
11.                        'row
    
12.                        'col
    
13.                      )
    
14.            )
    
15.       )
    
16.     (progn
    
17.       (setq
    
18.         blk   (cdr (assoc 2 (entget e)))
    
19.         blk   (tblobjname "block" blk)
    
20.         blk   (cdr (assoc 330 (entget blk)))
    
21.         blkid (vlax-ename->vla-object blk)
    
22.         blkid (vla-get-objectid blkid)
    
23.       )
    
24.       (vla-SetBlockTableRecordId tb row col blkid :vlax-true)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

(defun c:tt ()<br />   (if (and (setq tb (car (entsel "\n点取表格<退出>:")))<br />            (setq tb (vlax-ename->vla-object tb))<br />            (setq e (car (entsel "\n点取图块<退出>:")))<br />            (setq p (getpoint "\n点取单元格<退出>:"))<br />            (setq p (trans p 1 0))<br />            (setq hit (vla-hittest<br />                        tb<br />                        (vlax-3d-point p)<br />                        (vlax-3d-point '(0 0 1))<br />                        'row<br />                        'col<br />                      )<br />            )<br />       )<br />     (progn<br />       (setq<br />         blk   (cdr (assoc 2 (entget e)))<br />         blk   (tblobjname "block" blk)<br />         blk   (cdr (assoc 330 (entget blk)))<br />         blkid (vlax-ename->vla-object blk)<br />         blkid (vla-get-objectid blkid)<br />       )<br />       (vla-SetBlockTableRecordId tb row col blkid :vlax-true)<br />     )<br />   )<br />   (princ)<br /> )<br />

HLCAD

marting 发表于 2017-9-2 14:34

大师的学识令人佩服，更令人敬佩。

brainstorm

谢谢 又学了不少知识点