[LISP程序]：我想连续执行插入十字交叉线，如何完善？

lewyee

问题如下：
1、想连续点选，不然空格键累死，if or while？
2、设定为想要的颜色，但完成后希望颜色随层bylayer！[已解决]
求达人帮助
最近自己编了很多做景观的小程序，很有成就感，谢谢晓东的大虾和小虾们！
[PHP]
(defun c:inc (/ myosmode oldlayer p p1 p2 p3 p4 ss sset)
  (setq oldlayer (getvar "clayer"))
　(setq myosmode (getvar "OSMODE"))
　(setvar "OSMODE" 32)
　(setq p (getpoint "\nInsert point:"))
  (setvar "OSMODE" 0)
  (princ "\n")
  (setq WW (getint "\nCross<50>: "))
  (if (= WW nil) (setq WW 50.0))
  ;;(while loop
　　　(setq p1 (polar P (* PI 1.5) WW))
　　　(setq p2 (polar P (/ PI 2.0) WW))
　　　(setq p3 (polar P PI WW))
      (setq p4 (polar P 0 WW))      
   (command "Color" "green")
　(command ".LINE" p1 p2 "")
  (command ".LINE" p3 p4 "")
  ;;(command ".CIRCLE" P (/ WW 2) "")
  ;;(command ".-layer" cl "bylayer" "" "")
  ;;)
  (setvar "cecolor" "bylayer")
  (setvar "OSMODE" myosmode)
  (setvar "clayer" oldlayer)
　(princ)
)
(princ "\nstart: inc.")




[/PHP]

zxq0220

[php]
(defun c:inc (/ myosmode oldlayer p p1 p2 p3 p4 ss sset)
  (setq oldlayer (getvar "clayer"))
　(setq myosmode (getvar "OSMODE"))
　(setvar "OSMODE" 32)
  (setvar "OSMODE" 0)
  (princ "\n")
  (setq WW (getint "\nCross<50>: "))
  (if (= WW nil) (setq WW 50.0))
　(while (setq p (getpoint "\nInsert point:"))
   (setq p1 (polar P (* PI 1.5) WW))
   (setq p2 (polar P (/ PI 2.0) WW))
   (setq p3 (polar P PI WW))
   (setq p4 (polar P 0 WW))
   (command "Color" "green" ".LINE" p1 p2 "" ".LINE" p3 p4 "")
  ;;(command ".CIRCLE" P (/ WW 2) "")
  ;;(command ".-layer" cl "bylayer" "" "")
  )
  (setvar "cecolor" "bylayer")
  (setvar "OSMODE" myosmode)
  (setvar "clayer" oldlayer)
　(princ)
)
(princ "\nstart: inc.")
[/php]

lewyee

学习了
我老是用不好while 和 if
有没有经典的程序学习一下？！

雨箭风刀

cad帮助就有

cy956

通常简单的绘图符号用块比较好，便于后面的查询搜索之类。
所以建议你定义好标准块，程序用上面的流程，
两个line改为insert，包括change为当前层即可。

nessus

不会，学习一下。呵呵

lewyee

谢谢斑竹的提醒和建议！

yishw

看看