yang686526

老顾在不？
www.dimcax.com
老顾在不？
老顾是为工程师还是大学教师？
现在在哪里啊？
大家一起学习，吼吼

我也想知到，哈 哈 哈! ! ! ! ! !

高手一般都不会回答你这个问题的,不过老顾确实是热心,在此向他致敬

老顾，您好，我刚学lisp几个月，以后请多多帮助

我是四川绵阳长虹电子股份有限公司的一个结构设计师.89年就用cad设计了.现已退休了,今年已71岁了,我现在搞cad主要是为了动头脑.无其它爱好.
gbg

请教顾老师:我用cad才二年多的时间,但是对autolisp还一窍不通,我想现在开始学,从哪开始学呀.摸不着头脑呀.能否赐教?
每天积累一点，每天进步一些。

奇珍异宝:
你可按f1得到帮助,然后从简单开始编,可都看一些人家的程序.
gbg

请教一下老顾，我想写个lisp小程序，让所有的标注样式中的文字从尺寸线偏移量　由默认的0.09改为1或者0.7，本来觉得用command函数调用dimstyle就能实现的，就是找不到dimstyle的响应写法，请老顾指点，谢谢了！

;你要改变文字偏离尺寸线的距离用(setvar "dimgap" 偏离数)在编程序中就可这样使用。
;下面是你要的程序用
(defun c:setdim ()
(setq a (getstring "输入标注尺寸的式样iso-25) "))
(if (= a "")(setq a "iso-25"))
(setvar "dimstyle" a)
(setq c (getreal "文字偏离尺寸线的距离(1) "))
(if (= c nil)(setq c 1))
(setvar "dimgap" c)
)
;下面是一个标尺寸的简单设置的程序。
(defun c:dimset ()
(setq a (getreal "标尺寸的字高3.5) "))
(if (= a nil)(setq a 3.5))
(setvar "dimtxt" a)
(setq b (getreal "标尺寸的将箭头的大小(3.5) "))
(if (= b nil)(setq b 3.5))
(setvar "dimasz" b)
(setq c (getreal "文字偏离尺寸线的距离(0.6) "))
(if (= c nil)(setq c 0.6))
(setvar "dimgap" c)
(setq d (getreal "尺寸界线线超出尺寸线的尺寸(3) "))
(if (= d nil)(setq d 3))
(setvar "dimexe" d)
)
gbg

关闭
在希望中生活...

在此谢谢顾老师的热心帮助，一些尽在不言中，祝顾老师春节快乐，身体健康，万事如意！