如何将一个lisp做成选项合并到另一个lisp中去？

andyhua5240

恳求高手们帮我改改，让我学习一下。小弟我自已嫌每次输入@矩形的尺寸太麻烦，而我自己画的衣柜，台面之类的尺寸又是固定的，所以就做了个微不足道的这个lisp。
但是我觉得不好的是占用了两个命令，而且实用过程中还是容易搞混？如何做成一个命令，并且在命令行设置选项呢？输入那个选项值的话就是画1500x600的矩形
如输入rr就是画600x1500的矩形，在命令行输入提示选项A，就是画1500x600的矩形？

谢谢！

2. 
   
3. (defun po_err (s)
   
4.   (setvar "cmdecho" cm)
   
5.   (setvar "osmode" os)
   
6.   (command "_.undo" "_e")
   
7. )
   
8. ;利用rectang命令绘制矩形，矩形的尺寸为1500x600
   
9. (defun c:r1 ()
   
10.   (princ "\n* 插入 |X*Y=1500*600| 横式矩形 *")
    
11.   (setq cm (getvar "cmdecho"))
    
12.   (setq os (getvar "osmode"))
    
13.   (setq *error* po_err)
    
14.   (setvar "cmdecho" 0)
    
15.   (setvar "osmode" 4151)
    
16.   (princ "\n指定矩形的插入点 <退出>:")
    
17.   (setq p1 (getpoint))
    
18.   (setvar "osmode" 0)
    
19.   (if p1 (progn
    
20.                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "1500" "600")
    
21.                 (while (/= 0 (getvar "cmdactive"))(command pause))
    
22.                 (command "draworder" "last" "" "b")
    
23.          )
    
24.   )
    
25.   (setvar "cmdecho" cm)
    
26.   (setvar "osmode" os)
    
27.   (princ)
    
28. )
    
29. ;利用rectang命令绘制矩形，矩形的尺寸为600x1500
    
30. (defun c:r2 ()
    
31.   (princ "\n* 插入 |X*Y=600*1500| 立式矩形 *")
    
32.   (setq cm (getvar "cmdecho"))
    
33.   (setq os (getvar "osmode"))
    
34.   (setq *error* po_err)
    
35.   (setvar "cmdecho" 0)
    
36.   (setvar "osmode" 4151)
    
37.   (princ "\n指定矩形的插入点 <退出>:")
    
38.   (setq p1 (getpoint))
    
39.   (setvar "osmode" 0)
    
40.   (if p1 (progn
    
41.                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "600" "1500")
    
42.                 (while (/= 0 (getvar "cmdactive"))(command pause))
    
43.                 (command "draworder" "last" "" "b")
    
44.          )
    
45.   )
    
46.   (setvar "cmdecho" cm)
    
47.   (setvar "osmode" os)
    
48.   (princ)
    
49. )
    

<br /> (defun po_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (command "_.undo" "_e")<br /> )<br /> ;利用rectang命令绘制矩形，矩形的尺寸为1500x600<br /> (defun c:r1 ()<br />   (princ "\n* 插入 |X*Y=1500*600| 横式矩形 *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setq *error* po_err)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 4151)<br />   (princ "\n指定矩形的插入点 <退出>:")<br />   (setq p1 (getpoint))<br />   (setvar "osmode" 0)<br />   (if p1 (progn<br />                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "1500" "600")<br />                 (while (/= 0 (getvar "cmdactive"))(command pause))<br />                 (command "draworder" "last" "" "b")<br />          )<br />   )<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> ;利用rectang命令绘制矩形，矩形的尺寸为600x1500<br /> (defun c:r2 ()<br />   (princ "\n* 插入 |X*Y=600*1500| 立式矩形 *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setq *error* po_err)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 4151)<br />   (princ "\n指定矩形的插入点 <退出>:")<br />   (setq p1 (getpoint))<br />   (setvar "osmode" 0)<br />   (if p1 (progn<br />                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" "600" "1500")<br />                 (while (/= 0 (getvar "cmdactive"))(command pause))<br />                 (command "draworder" "last" "" "b")<br />          )<br />   )<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />

snoopychen

试试

2. 
   
3. (defun po_err (s)
   
4.   (setvar "cmdecho" cm)
   
5.   (setvar "osmode" os)
   
6.   (command "_.undo" "_e")
   
7. )
   
8. 
   
9. (defun c:rr (/ efg)
   
10.   (prompt "\n输入类型, a为1500*600:")
    
11.   (setq efg (getstring))
    
12.   (cond
    
13.     ((= efg "")
    
14.       (r1 "600" "1500")
    
15.     )
    
16.     ((= efg "a")
    
17.       (r1 "1500" "600")
    
18.     )
    
19.   )
    
20. )
    
21. 
    
22. ;利用rectang命令绘制矩形，矩形的尺寸为1500x600
    
23. (defun r1 (pa pb / cm os p1)
    
24.   (princ "\n* 插入 |X*Y=1500*600| 横式矩形 *")
    
25.   (setq cm (getvar "cmdecho"))
    
26.   (setq os (getvar "osmode"))
    
27.   (setq *error* po_err)
    
28.   (setvar "cmdecho" 0)
    
29.   (setvar "osmode" 4151)
    
30.   
    
31.   (princ "\n指定矩形的插入点 <退出>:")
    
32.   (setq p1 (getpoint))
    
33.   (setvar "osmode" 0)
    
34.   (if p1 (progn
    
35.                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" pa pb)
    
36.                 (while (/= 0 (getvar "cmdactive"))(command pause))
    
37.                 (command "draworder" "last" "" "b")
    
38.          )
    
39.   )
    
40.   (setvar "cmdecho" cm)
    
41.   (setvar "osmode" os)
    
42.   (princ)
    
43. )
    
44. 
    
45. 
    

<br /> (defun po_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> (defun c:rr (/ efg)<br />   (prompt "\n输入类型, a为1500*600:")<br />   (setq efg (getstring))<br />   (cond<br />     ((= efg "")<br />       (r1 "600" "1500")<br />     )<br />     ((= efg "a")<br />       (r1 "1500" "600")<br />     )<br />   )<br /> )<br /> <br /> ;利用rectang命令绘制矩形，矩形的尺寸为1500x600<br /> (defun r1 (pa pb / cm os p1)<br />   (princ "\n* 插入 |X*Y=1500*600| 横式矩形 *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setq *error* po_err)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 4151)<br />   <br />   (princ "\n指定矩形的插入点 <退出>:")<br />   (setq p1 (getpoint))<br />   (setvar "osmode" 0)<br />   (if p1 (progn<br />                 (command "rectang" "c" "0" "0" "e" "0" "f" "0" "t" "0" "w" "0" p1 "d" pa pb)<br />                 (while (/= 0 (getvar "cmdactive"))(command pause))<br />                 (command "draworder" "last" "" "b")<br />          )<br />   )<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> <br /> <br />

andyhua5240

大哥能否解释一下改过的每句的含义呀？尤其是pa,pb找不出在哪里定义过。
我知道和这句有关系((= efg "")
      (r1 "600" "1500")
    )
    ((= efg "a")
      (r1 "1500" "600")
    )
  )
谢谢！

snoopychen

(r1 "600" "1500") 代表调用函数r1 就是把你原来的c:r1改成了r1,
defun c:ab() 的ab是可以直接在cad命令行中输入的命令
而defun ab()是可以直接被Lisp调用的命令
defun ab(x y)代表的函数可以在Lisp代码中用 (ab x y)来调用,其中 x y 是拿来传递变量的, 不需要定义的.
比如你运行一下后面这个代码就知道怎么回事的

(r1 "600" "1500")代表的就是把"600"赋值给pa, "1500"赋值给pb,这样子就不用写r1和r2两个不同函数的

[php]
(defun c:test ()
  (setq x (ab 6 7))
(princ "\n               x = ") (princ x);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
  (setq x (ab 1 5))
(princ "\n               x = ") (princ x);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
)
(defun ab (m n)
  (+ (* m 100) (* n 10))
)
[/php]

雨箭风刀

[php]
(defun c:tt ()
  (or (setq a "1500" b "600" p1 (getpoint "\n 1500*600第一角点/<600*1500>:")  )
    (setq a "600" b "1500"  p1 (getpoint "\n 600*1500第一角点:") ))
  (if p1
    (command ".rectangle" p1 (strcat "@" a "," b))
  )(princ)
) [/php]

andyhua5240

最初由 snoopychen 发布
[B]试试
[code]
(defun po_err (s)
  (setvar "cmdecho" cm)
  (setvar "osmode" os)
  (command "_.undo" "_e")
)

(defun c:rr (/ efg)
  (prompt "\n输入类型, a为1500*600:")
  (setq efg (getstring))
... [/B]

在搭车回来的路上，想了想。如果想程序更完美的话，最好是这样：第一次输入A，是1500*600的矩形，第二次输入A是600*1500的矩形，如果第三次输入A的话，则重复第一次结果。也就是要怎么样才能做成个循环呢？就像是专业的建筑软件一样？

如何实现呢？谢谢！

梁兄的程序很是简洁，比较新颖呀！
谢谢！

dwg001

雨箭风刀你的程序写得太精练了，or的用法恰到好处，功夫实在深。请问“钢铁是怎样练成的？”　让菜鸟学习学习。多谢。

snoopychen

andy,把rr函数改成下面这个就可以了
：）刀兄的程序一向简练
[php]
(defun c:rr (/ efg  @c)
  (if (or
        (= @a nil)
        (= @b nil)
      )
    (setq @a "600"
          @b "1500"
    )
  )
  (prompt "\n输入类型, a为改变形式:")
  (setq efg (getstring))
  (if (= efg "a")
    (setq @c @a
          @a @b
          @b @c
    )
  )
  (r1 @a @b)
)
[/php]

andyhua5240

嘿嘿！谢谢楼上的两位超级大哥！
梁兄的程序不能随鼠标摇摆算是一种遗憾了。如回字形的一个房间，在两个竖墙的位置要插入一字形1500*600的柜子。左墙是可以用程序实现的。那右墙呢？
不知道语言表达清楚没有？可惜不能上传图片？

雨箭风刀

这个和插入门窗是同样的原理，如果要功能完善一点，可以参考论坛已有的程序。至少可以搜索出几个吧，我想。
有个程序是根据鼠标对实体旋转镜像的，忘了是哪个发的了。可以用grread 判断鼠标位置

snoopychen

andy的原程序（1楼或者2楼）就是可以用鼠标来判断位置的，确实让我觉得挺新奇的

andyhua5240

最初由 雨箭风刀 发布
[B][php]
(defun c:tt ()
  (or (setq a "1500" b "600" p1 (getpoint "\n 1500*600第一角点/<600*1500>:")  )
    (setq a "600" b "1500"  p1 (getpoint "\n 600*1500第一角点:") ))
  (if p1
    (command ".re... [/B]

对着梁兄+lisp的帮助也写不出45/-45度的坡度线？晕死，程序的思路理解，但是对语言的用法不熟！

2. 
   
3.   [FONT=courier new]
   
4. (defun c:ttt ()
   
5.   (or (setq a "45" p1 (getpoint "\n 45指定通过点/<-45>:")  )
   
6.     (setq b "-45"  p1 (getpoint "\n -45指定通过点:") ))
   
7.   (if p1
   
8.     (command "xline" "a" p1  (strcat  a  b))
   
9.   )(princ)
   
10. )
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:ttt () <br />   (or (setq a "45" p1 (getpoint "\n 45指定通过点/<-45>:")  ) <br />     (setq b "-45"  p1 (getpoint "\n -45指定通过点:") )) <br />   (if p1 <br />     (command "xline" "a" p1  (strcat  a  b)) <br />   )(princ) <br /> )<br />   [/FONT]<br />

找到原因了，是strcat的问题，返回a,b，但是不用这个，用哪个呀？
谢谢！

snoopychen

2. 
   
3. (defun c:ttt (/ a p1)
   
4.   (or (setq a "45" p1 (getpoint "\n 45指定通过点/<-45>:")  )
   
5.     (setq a "-45"  p1 (getpoint "\n -45指定通过点:") ))
   
6.   (if p1
   
7.     (command "xline" p1 (strcat "@100<" a ) "")
   
8.   )(princ)
   
9. )
   

<br /> (defun c:ttt (/ a p1) <br />   (or (setq a "45" p1 (getpoint "\n 45指定通过点/<-45>:")  ) <br />     (setq a "-45"  p1 (getpoint "\n -45指定通过点:") )) <br />   (if p1 <br />     (command "xline" p1 (strcat "@100<" a ) "") <br />   )(princ) <br /> )<br />

可能可以吧

雨箭风刀

[PHP]
(defun c:tt (/ a b p1)
  (if   (or (setq a "1500" b "600" p1 (getpoint "\n 1500*600第一角点/<600*1500>:")  )
      (setq a "600" b "1500"  p1 (getpoint "\n 600*1500第一角点:") ))
    (progn (command ".rectangle" p1 (strcat "@" a "," b))
      (command ".rotate" "l" "" p1 pause);;配合极轴追踪.
    )
  )
  (princ)
)
[/PHP]

andyhua5240

梁兄的程序实际上是用旋转+正交开才能达到预期的效果！也就是程序设定中应该有
(setvar "orthomode" 1)
还有就是在实现旋转的过程中，最好是屏蔽osmode