ntyks 发表于 2014-7-30 17:50:35

aihuyujian 发表于 2014-7-30 20:31:20

(setq p1 (cdr (assoc 10 ent)))

aihuyujian 发表于 2014-7-30 20:33:15

晕，中心点貌似还得判断文字最小包围盒一下吧……

edata 发表于 2014-7-31 11:01:58

本帖最后由 edata 于 2014-7-31 15:23 编辑

(defun sk_getbox1(ent / ll ur)
(vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
(mapcar 'set '(ll ur)(mapcar 'vlax-safearray->list (list ll ur)))
(mapcar '(lambda(x y)(*(+ x y) 0.5)) ll ur)
)
(defun c:KK ()   
(setvar "cmdecho" 0);指令執行過程不響應
(princ "\n圖面文字插入圖塊")
(while (and (setq s1 (entsel "\n选择文字:"))
         (setqent (entget(car s1)))
         (= (cdr(assoc 0 ent)) "TEXT"))
   (setq fnm (strcat "D:/AA/" (cdr(assoc 1 ent)) ".DWG"))   
   (if (and (findfile fnm) (setq p1 (sk_getbox1 (car s1))))
    (command "-insert" fnm "non" p1 "" "" "")
   (princ "not find file!")
   )
)
(princ)
)

ntyks 发表于 2014-7-31 13:34:43

ntyks 发表于 2015-1-6 10:19:32

ntyks 发表于 2015-1-6 10:35:21

ntyks 发表于 2015-1-6 11:17:22

ntyks 发表于 2017-8-14 13:56:29

页: [1]
查看完整版本: 如何按文本内容填充相应图块!