关于直线引线的问题附坐标采集的lsp

逝去boy

怎么画完直线的第一点后到第二点时出现直线的引线，就是平时直接使用命令画直线，第一个点画完后，从第一个点引出一条线到鼠标的位置。使用（command “line” “p1” "p2" ""）中间不会出现引线，该如何解决

代码如下：

2. (defun c:qy()
   
3.   (setvar "cmdecho" 0)
   
4.   (command ".undo" "be")
   
5.   (command "-units" "2" "3" "2" "3" "" "")
   
6.   (setq fp (open "d:/坐标.xls" "a") s (getvar "cmdecho") n 10000)
   
7.   (princ "桩号" fp)(princ "\t" fp)
   
8.   (princ "X坐标值" fp)(princ "\t" fp)
   
9.   (princ "Y坐标值" fp)(princ "\n" fp)
   
10.   (setq  z (getstring "\n输入编号字母") k (getint "\n输入起始编号") k (1- k))
    
11.   (close fp)
    
12.   (setq zg (getint "\n输入字高"))
    
13.   (repeat n
    
14.   (setq
    
15.   fp (open "d:/坐标.xls" "a")
    
16.   k (+ k 1)
    
17.     p (getpoint "\n输入节点")
    
18.   x (/ (nth 0 p) 1000)
    
19.   y (/ (nth 1 p) 1000)
    
20.   x (strcat "Y=" (rtos x))
    
21.   y (strcat "X=" (rtos y)))
    
22.   (command "line" p
    
23.              (setq p2 (getpoint "\n输入节点2"))
    
24.              (list (+ (nth 0 p2) (* zg (strlen (strcat z (itoa k))) 0.67)) (nth 1 p2) 0) "")
    
25.   (command "text" "s" "standard" (list (nth 0 p2) (+ (nth 1 p2) (* zg 0.2)) 0) zg "" (strcat z (itoa k)))
    
26.   (princ z fp)
    
27.   (princ k fp)(princ "\t" fp)
    
28.   (princ y fp)(princ "\t" fp)
    
29.   (princ x fp)(princ "\n" fp)
    
30.   (close fp)) ;;将坐标写入标高,循环到此结束,关闭表格
    
31.   (setvar "cmdecho" s))

(defun c:qy()<br />   (setvar "cmdecho" 0)<br />   (command ".undo" "be")<br />   (command "-units" "2" "3" "2" "3" "" "")<br />   (setq fp (open "d:/坐标.xls" "a") s (getvar "cmdecho") n 10000) <br />   (princ "桩号" fp)(princ "\t" fp) <br />   (princ "X坐标值" fp)(princ "\t" fp) <br />   (princ "Y坐标值" fp)(princ "\n" fp)<br />   (setq  z (getstring "\n输入编号字母") k (getint "\n输入起始编号") k (1- k))<br />   (close fp)<br />   (setq zg (getint "\n输入字高"))<br />   (repeat n <br />   (setq<br />   fp (open "d:/坐标.xls" "a") <br />   k (+ k 1)<br />     p (getpoint "\n输入节点")<br />   x (/ (nth 0 p) 1000)<br />   y (/ (nth 1 p) 1000)<br />   x (strcat "Y=" (rtos x)) <br />   y (strcat "X=" (rtos y)))<br />   (command "line" p <br />              (setq p2 (getpoint "\n输入节点2"))<br />              (list (+ (nth 0 p2) (* zg (strlen (strcat z (itoa k))) 0.67)) (nth 1 p2) 0) "")<br />   (command "text" "s" "standard" (list (nth 0 p2) (+ (nth 1 p2) (* zg 0.2)) 0) zg "" (strcat z (itoa k)))<br />   (princ z fp)<br />   (princ k fp)(princ "\t" fp) <br />   (princ y fp)(princ "\t" fp) <br />   (princ x fp)(princ "\n" fp)<br />   (close fp)) ;;将坐标写入标高,循环到此结束,关闭表格<br />   (setvar "cmdecho" s))

llsheng_73

(setq p2 (getpoint "\n输入节点2")) 改为(setq p2 (getpoint  p"\n输入节点2"))试试

逝去boy

可以了，可以说下为什么吗？
(getpoint [] "")格式是这个，不过里面可以省略，可是为什么省略后就不出现引线了呢

逝去boy

llsheng_73 发表于 2014-4-26 16:52
(setq p2 (getpoint "\n输入节点2")) 改为(setq p2 (getpoint  p"\n输入节点2"))试试

可以了，可以说下为什么吗？
(getpoint [] "")格式是这个，不过里面可以省略，可是为什么省略后就不出现引线了呢

llsheng_73

把起始坐标点给省掉了它从哪个地方开始给你作引线？

ysq101

llsheng_73 发表于 2014-4-26 16:52
(setq p2 (getpoint "\n输入节点2")) 改为(setq p2 (getpoint  p"\n输入节点2"))试试

还有P这个东东？？还真不知道
我一般是(getpoint (getpoint))

llsheng_73

ysq101 发表于 2014-4-26 17:29
还有P这个东东？？还真不知道
我一般是(getpoint (getpoint))

那个p是他前边输入的一个坐标点,你的用法是对的

ysq101

llsheng_73 发表于 2014-4-26 19:38
那个p是他前边输入的一个坐标点,你的用法是对的

我以为getpoint 还有P个这参数呢