请各位长辈帮忙
各位长辈老师大家好:本人刚学LISP。请问老师怎样能做出我的那个程序来。请指点思路。我慢慢摸索。学习。;; 需要e派工具箱(XCAD)的支持:http://xyp1964.ys168.com
;; 窗号变窗
(defun c:tt ()
(CMDLA0)
(while (and (setq s1 (car (entsel "\n选择: ")))
(xyp-etype s1 "*text")
(setq p1 (getpoint "\n基点<退出>: "))
)
(xyp-Group0)
(setq tx(xyp-get-dxf 1 s1)
lst (xyp-Get-HzEngNum tx 3)
a (atoi (car lst))
w (* (/ a 100) 100)
h (* (- a w) 100)
p2(xyp-get-Pt2XY p1 w h)
s2(xyp-rectang p1 p2)
p1a (xyp-get-Pt2x p1 -200)
p1b (xyp-get-Pt2y p1 -200)
p2(xyp-get-Pt2x p1a -600)
p3(xyp-get-Pt2y p1b -600)
s3(xyp-dim-ver p1a (xyp-get-Pt2Y p1a h) p2)
s4(xyp-dim-hor p1b (xyp-get-Pt2x p1b w) p3)
)
(xyp-put-CurveWeight s2 60)
(xyp-Group1)
)
(CMDLA1)
)
xyp1964 发表于 2011-9-1 07:48 static/image/common/back.gif
十分感谢您的帮助。十二分的感谢。!!!!!! 感谢版主xyp1964无私的奉献。再次谢谢了。 no function definition: CMDLA0;还是有点问题不明白。我一直没弄懂CMDLA0。请指定。 ...no function definition: CMDLA0...
代码首
;; 需要e派工具箱(XCAD)的支持:http://xyp1964.ys168.com
;; 窗号变窗
Andyhon 发表于 2011-9-1 13:36 static/image/common/back.gif
...no function definition: CMDLA0...
代码首
;; 需要e派工具箱(XCAD)的支持:http://xyp1964.ys168.com ...
谢谢您对我的指导。问题已经解决。
页:
[1]