HHJJ9898 发表于 2014-4-26 21:28:42

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

长风（尚品） 发表于 2014-5-5 22:40:28

好贵， 不能便宜嘛

czb203 发表于 2014-5-26 19:06:06

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

adc 发表于 2014-5-29 09:59:30

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

林霄云 发表于 2014-5-29 18:31:35

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

请尝试，将通用函数的make_text_b(defun make_text_b( pt-text10 ang hei alistr layername / temp-list ucszdir)
;函数make_text，参数pt-text10 插入点，layername 图层名，str文字内容。返回值，文字。局限在72取1，即居中
;Desiged by 林霄云 2014年2月12日
;如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长度和高度（应用文字样式之后）计算新值。如果组 72 和 73 的值为零或缺失，第二对齐点将没有意义。

(setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量

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

(setq ucszdir (trans '(0 0 1) 1 0 T ));生成OCS法向量

(setq temp-list (list '(0 . "TEXT")'(62 . 2) (cons 1 str)
      (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)
      (cons 210 ucszdir))) ;(cons 11 pt-text11)
(EntMakex temp-list)
);defun即，把文字样式，定为当前文字样式。(cons 7 (getvar 'textstyle))

gaoyang1545 发表于 2014-6-9 22:30:21

很给力。。。

gaoyang1545 发表于 2014-6-9 23:25:32

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

ggamm 发表于 2014-6-23 09:40:42

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

nadaloveluna 发表于 2014-7-30 13:25:01

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

水沙漠 发表于 2014-7-30 14:18:16

很好的钢筋工具，赞一个！
页: 1 2 [3] 4 5 6 7
查看完整版本: 引线标注点筋与线筋源码解析（支持UCS）