引线标注点筋与线筋源码解析（支持UCS）

HHJJ9898

太棒啦！！！！！！！！！！！！！！

长风（尚品）

好贵， 不能便宜嘛

czb203

很不错的软件谢谢楼主的支持

adc

我这里为什么提示这样 ; 错误: 参数类型错误: lentityp nil

林霄云

adc 发表于 2014-5-29 09:59
我这里为什么提示这样 ; 错误: 参数类型错误: lentityp nil

请尝试，将通用函数的make_text_b

2. (defun make_text_b( pt-text10 ang hei ali  str layername / temp-list ucszdir)
   
3. ;函数make_text，参数pt-text10 插入点，layername 图层名，str文字内容。返回值，文字。局限在72取1，即居中
   
4. ;Desiged by 林霄云 2014年2月12日
   
5. ;如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长度和高度（应用文字样式之后）计算新值。如果组 72 和 73 的值为零或缺失，第二对齐点将没有意义。
   
6. 
   
7. (setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量
   
8. 
   
9. (setq temp-list (list '(0 . "TEXT")  '(62 . 2) (cons 1 str)
   
10.         (cons 8 layername)(cons 10 pt-text10)(cons 11 pt-text10)(cons 50 ang) (cons 40 hei) '(41 . 0.7) '(7 . "G_text") (cons 72 ali)
    
11.         (cons 210 ucszdir))) ;(cons 11 pt-text11)
    
12. (EntMakex temp-list)
    
13. );defun

(defun make_text_b( pt-text10 ang hei ali  str layername / temp-list ucszdir)<br /> ;函数make_text，参数pt-text10 插入点，layername 图层名，str文字内容。返回值，文字。局限在72取1，即居中<br /> ;Desiged by 林霄云 2014年2月12日<br /> ;如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长度和高度（应用文字样式之后）计算新值。如果组 72 和 73 的值为零或缺失，第二对齐点将没有意义。<br /> <br /> (setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量<br /> <br /> (setq temp-list (list '(0 . "TEXT")  '(62 . 2) (cons 1 str)<br />         (cons 8 layername)(cons 10 pt-text10)(cons 11 pt-text10)(cons 50 ang) (cons 40 hei) '(41 . 0.7) '(7 . "G_text") (cons 72 ali) <br />         (cons 210 ucszdir))) ;(cons 11 pt-text11)<br /> (EntMakex temp-list)<br /> );defun

修改为

2. (defun make_text_b( pt-text10 ang hei ali  str layername / temp-list ucszdir)
   
3. ;函数make_text，参数pt-text10 插入点，layername 图层名，str文字内容。返回值，文字。局限在72取1，即居中
   
4. ;Desiged by 林霄云 2014年2月12日
   
5. ;如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长度和高度（应用文字样式之后）计算新值。如果组 72 和 73 的值为零或缺失，第二对齐点将没有意义。
   
6. 
   
7. (setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量
   
8. 
   
9. (setq temp-list (list '(0 . "TEXT")  '(62 . 2) (cons 1 str)
   
10.         (cons 8 layername)(cons 10 pt-text10)(cons 11 pt-text10)(cons 50 ang) (cons 40 hei) '(41 . 0.7)(cons 7 (getvar 'textstyle)) (cons 72 ali)
    
11.         (cons 210 ucszdir))) ;(cons 11 pt-text11)
    
12. (EntMakex temp-list)
    
13. );defun

(defun make_text_b( pt-text10 ang hei ali  str layername / temp-list ucszdir)<br /> ;函数make_text，参数pt-text10 插入点，layername 图层名，str文字内容。返回值，文字。局限在72取1，即居中<br /> ;Desiged by 林霄云 2014年2月12日<br /> ;如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长度和高度（应用文字样式之后）计算新值。如果组 72 和 73 的值为零或缺失，第二对齐点将没有意义。<br /> <br /> (setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量<br /> <br /> (setq temp-list (list '(0 . "TEXT")  '(62 . 2) (cons 1 str)<br />         (cons 8 layername)(cons 10 pt-text10)(cons 11 pt-text10)(cons 50 ang) (cons 40 hei) '(41 . 0.7)(cons 7 (getvar 'textstyle)) (cons 72 ali) <br />         (cons 210 ucszdir))) ;(cons 11 pt-text11)<br /> (EntMakex temp-list)<br /> );defun

即，把文字样式，定为当前文字样式。

1. (cons 7 (getvar 'textstyle))

复制代码

gaoyang1545

很给力。。。

gaoyang1545

楼主啊，下载用不了啊，显示缺函数。。

ggamm

不会用，怎么破，我这里用不了

nadaloveluna

谢谢前辈的分析，在学习lisp，思路真的很重要。

水沙漠

很好的钢筋工具，赞一个！