sixmagic..
发表于 2007-5-24 10:26:00
哈哈．我觉得我们应该共同交流
骑师
发表于 2007-7-2 21:03:00
<p>双手赞同!!</p>
AMTONNY
发表于 2008-1-15 11:45:00
<p>楼主你好，能不能帮我补充一下我的程序，功能是自动画冲头+自动建UCS“0”点+自动坐标标注，我已经完成了画图，请帮忙完善程序，谢谢！用法是输基准点，选X坐标长度，输挂台高度，输冲头长度后自动完成画图和标注，以下是程序</p><p>;;指定基点画冲头</p><p>(DEFUN c:oi (/ osm point x y px py x1 y1 x2 y2 x3 y3 x4 y4 f1 f2 f3 f4 x5<br/> y5 x6 y6 w1 w2 ents)<br/> (setq point (getpoint "\n指定冲头基准点:"))<br/> (setq ww (getdist "\n请选择对象:"))<br/> (setq osm (getvar "osmode"))<br/> (setvar "osmode" 0)<br/> (setq X (getdist "\n请输入挂台高度:"))<br/> (setq y (getdist "\n请输入冲头长度:"))<br/> (setq px (car point))<br/> (setq py (cadr point))<br/> (setq x (/ x 1))<br/> (setq y (/ y -1))<br/> (setq x1 (+ px 0))<br/> (setq y1 (- py 39))<br/> (setq x2 (+ px 1.2))<br/> (setq y2 (- py 39))<br/> (setq x3 (+ px 1.2))<br/> (setq y3 (- py 35))<br/> (setq x4 (+ px 0))<br/> (setq y4 (- py 35))<br/> (setq x5 (+ px 0))<br/> (setq y5 (- py (- 35 x)))<br/> (setq x6 (+ px ww))<br/> (setq y6 (- py (- 35 x)))<br/> (setq x7 (+ px ww))<br/> (setq y7 (+ py -15 y))<br/> (setq x8 (+ px 0))<br/> (setq y8 (+ py -15 y))</p><p><br/> (setq f1 (list x1 y1))<br/> (setq f2 (list x2 y2))<br/> (setq f3 (list x3 y3))<br/> (setq f4 (list x4 y4))<br/> (setq f5 (list x5 y5))<br/> (setq f6 (list x6 y6))<br/> (setq f7 (list x7 y7))<br/> (setq f8 (list x8 y8))<br/> (command "_PLINE" f1 f2 f3 f4 f5 f6 f7 f8"c")<br/> (setvar "osmode" osm)<br/> (COMMAND "UCS" "O"))</p><p> ***(prompt "\n <<01.10>>")***<br/> (prin1)</p><p> (princ)<br/>)</p>
makelism
发表于 2008-1-20 18:05:00
大家好请帮我写一个在各个布局中自动切换的LISP
makelism
发表于 2008-1-20 18:10:00
有人可以写自动获取实体长,宽.高的高手吗?可以帮我写一个吗?谢谢!
shaguazhang
发表于 2008-3-13 23:40:00
<p>今天刚注册</p><p>发个帖纪念一下!</p><p>希望以后大家多帮忙..............</p><p></p>
yeqb4749659
发表于 2008-7-8 08:01:00
<p>在论坛上我会尽全力的！</p>
清风6002
发表于 2008-8-5 21:26:00
我同意。
gwpgc
发表于 2008-12-28 18:48:00
各位大大，怎样才能发帖啊
doremidai
发表于 2009-4-12 00:37:00
同意。明经上高手如云，我也学到很多。奈何平时太忙，对于写程序还不精。感谢这里很多朋友提供帮助。
页:
1
2
3
4
5
6
[7]
8
9
10