批量在指定文字的位置处插块，求帮忙啊，急用！！

77077

批量在文字位置插块，写不出来啊。括号里面怎么写呀？？？

1. ;批量在指定文字的位置处插块
   
2. (defun c:TT ()
   
3.   (if (findfile "123.dwg")
   
4.     (progn
   
5.        (setq ss (ssget '((0 . "TEXT"))))
   
6.        (setq i  -1)
   
7.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.           (setq insert_Pt ());→这括号里面应该怎么写呀？？？
   
9.           (command "Insert" "123" insert_Pt "" "" "")
   
10.       )
    
11.     )
    
12.     (princ"\n图块不存在!")
    
13.   )
    
14. )
    

;批量在指定文字的位置处插块<br /> (defun c:TT ()<br />   (if (findfile "123.dwg")<br />     (progn<br />        (setq ss (ssget '((0 . "TEXT"))))<br />        (setq i  -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />           (setq insert_Pt ());→这括号里面应该怎么写呀？？？<br />           (command "Insert" "123" insert_Pt "" "" "")<br />       )<br />     )<br />     (princ"\n图块不存在!")<br />   )<br /> )<br />

xyp1964

zazhz123 发表于 2025-1-26 15:26
ganxie感谢，可用，如果能改成点选图块名更好了

1. (defun c:tt ()
   
2.   "文字插入点插入图块"
   
3.   (if (and (princ "\n选择文字: ")
   
4.            (setq ss (ssget '((0 . "TEXT"))))
   
5.            (setq tk (cdr (assoc 2 (entget (car (entsel "\n选择图块: "))))))
   
6.       )
   
7.     (progn
   
8.       (setq i -1)
   
9.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.         (setq p0 (cdr (assoc 10 (entget s1))))
    
11.         (command "-INSERT" tk p0 1 1 0)
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   "文字插入点插入图块"<br />   (if (and (princ "\n选择文字: ")<br />            (setq ss (ssget '((0 . "TEXT"))))<br />            (setq tk (cdr (assoc 2 (entget (car (entsel "\n选择图块: "))))))<br />       )<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq p0 (cdr (assoc 10 (entget s1))))<br />         (command "-INSERT" tk p0 1 1 0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

zazhz123

ganxie感谢，可用，如果能改成点选图块名更好了

spoon37

学习了。。。最近刚好用到

llsheng_73

一般情况下文字有两个点，一个在10组，另一个在11组，但有时其中一组它可能为0

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

77077

楼上测试可用，只是我想知道我的代码错在哪里？能不能改？

自贡黄明儒

77077 发表于 2014-1-5 21:59
楼上测试可用，只是我想知道我的代码错在哪里？能不能改？

括号前加＇，要这句有什公用

77077

自贡黄明儒 发表于 2014-1-5 22:14
括号前加＇，要这句有什公用

我也不太清楚，人家那么写，我也就跟着依葫芦画瓢了！

llsheng_73

自贡黄明儒 发表于 2014-1-5 22:14
括号前加＇，要这句有什公用

括号前加＇是这句么？
(> (distance '(0.0 0.0 0.0) (setq pt (cdr(assoc 11 ent)))) 0)
估计因为text对正方式的不一样，它有时可能10组全为0也有可能11组全为0。。。。反正乱七八糟的，所以Z版加了这句

edata

72，73不为0时11组码才有用，71是镜像，颠倒标志，

liaobin

谢谢ZZXXQQ版主，谢谢LZ，刚好用得上