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

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 />

spoon37

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

渠辉

学习学习学习

wwchlncad

我是来学习的

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，刚好用得上