434939575 发表于 2011-9-1 01:39:34

请各位长辈帮忙

各位长辈老师大家好:本人刚学LISP。请问老师怎样能做出我的那个程序来。请指点思路。我慢慢摸索。学习。

xyp1964 发表于 2011-9-1 07:48:06


;; 需要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)
)

434939575 发表于 2011-9-1 10:50:16

xyp1964 发表于 2011-9-1 07:48 static/image/common/back.gif


十分感谢您的帮助。十二分的感谢。!!!!!!

434939575 发表于 2011-9-1 10:51:30

感谢版主xyp1964无私的奉献。再次谢谢了。

434939575 发表于 2011-9-1 10:54:23

no function definition: CMDLA0;还是有点问题不明白。我一直没弄懂CMDLA0。请指定。

Andyhon 发表于 2011-9-1 13:36:43

...no function definition: CMDLA0...
代码首
;; 需要e派工具箱(XCAD)的支持:http://xyp1964.ys168.com
;; 窗号变窗

434939575 发表于 2011-9-1 15:43:58

Andyhon 发表于 2011-9-1 13:36 static/image/common/back.gif
...no function definition: CMDLA0...
代码首
;; 需要e派工具箱(XCAD)的支持:http://xyp1964.ys168.com ...

谢谢您对我的指导。问题已经解决。
页: [1]
查看完整版本: 请各位长辈帮忙