[编程申请]：编一个画线程序？

xxming

在画给定坐标点的直线时，需要通过键盘输入坐标值
。这样的情况下当然是利用右边的数字键盘输入较为方便
。但若直接使用AutoCAD的pLine命令画直线，在x和y两个
坐标值之间需要输入一个逗号“，”作为分隔，而数字键
盘区又没有该逗号，所以仍然不方便。能否编一个直线程序只要求用户输入坐标值，
而由程序自动调用pLine命令画出直线，并能提示第一点、第二点.......坐标.因此用户不用离开数字键盘区就能完成工作。

ljpnb

[PHP]
(defun c:test ()
  (setq roop T)
  (command "pline")
  (while roop
    (setq str (getstring "\n输入坐标,格式为(x/y): "))
    (if        (/= str "")
      (progn
        (setq n (vl-string-position (ascii "/") str))
        (if (/= n nil)
          (progn
            (setq p1
                   (list (atof (substr str 1 n)) (atof (substr str (+ n 2))))
            )
            (command p1)
          )
          (prompt "\n输入的坐标格式不正确，请重新输入!")
        )       
      )
      (setq roop nil)
    )
  )
  (command "")
)
[/PHP]

xxming

你这样不是更麻烦，还要输入“/”，而我只需输入x y 即可，不用输入","

ljpnb

最初由 xxming 发布
[B]你这样不是更麻烦，还要输入“/”，而我只需输入x y 即可，不用输入"," [/B]

如果只输入x y，怎么来区分这两个数值，两个数连在一起是不可能的，所以只能用一个符号来分开，小键盘没有“，”键，但“/”键总有吧。。。。

xxming

自已编了一个，大家修改修改
(defun c:xlin()
  (setvar "cmdecho" 0)
  (command "pline")
  (setq roop t)
  (setq j 0)
  (while roop
  (princ (strcat "第" (rtos(setq j (1+ j))) "点坐标"))
  (setq x (getreal "\nENTER X: "))
  (setq y (getreal "\nENTER Y: "))
  (command (list x y))
  (if (and (= x nil) (= y nil))
    (exit)
  )
  )
  (princ)
)

ljpnb

如果输入的X、Y值非空，程序运行会正常，但如果空输入，则程序会出错。
这句(if ....)
应该加在command之前进行判断

xxming

楼上：但是该怎么闭合呢？

xyp1964

最初由 xxming 发布
[B]自已编了一个，大家修改修改
(defun c:xlin()
  (setvar "cmdecho" 0)
  (command "pline")
  (setq roop t)
  (setq j 0)
  (while roop
  (princ (strcat "第" (rtos(setq j (1+ j))) "点坐标"))
  (setq ... [/B]

试试：
[php]
(defun c:test ()
  (princ "第1点坐标")
  (setq        x (getreal "\nX坐标 : ")
        y (getreal "\nY坐标<退出> : ")
        j 1
  )  
  (command "pline")
  (while (and x y)
    (command (list x y))
    (princ "\n")
    (princ (strcat "第" (rtos (setq j (1+ j))) "点坐标"))
    (setq x (getreal "\nX坐标<退出> : "))
    (if        x
      (setq y (getreal "\nY坐标<退出> : "))
    )
  )
  (command "")
  (princ)
)
[/php]
最好先将点坐标生成一个文件（如 .txt）然后用程序直接读取，便于检查和更改。

xxming

xyp1964 斑竹 谢谢你出手就是不一样,能否在程序中加入“回退”功能谢谢