关于直线引线的问题附坐标采集的lsp
怎么画完直线的第一点后到第二点时出现直线的引线，就是平时直接使用命令画直线，第一个点画完后，从第一个点引出一条线到鼠标的位置。使用（command “line” “p1” "p2" ""）中间不会出现引线，该如何解决代码如下：(defun c:qy()
(setvar "cmdecho" 0)
(command ".undo" "be")
(command "-units" "2" "3" "2" "3" "" "")
(setq fp (open "d:/坐标.xls" "a") s (getvar "cmdecho") n 10000)
(princ "桩号" fp)(princ "\t" fp)
(princ "X坐标值" fp)(princ "\t" fp)
(princ "Y坐标值" fp)(princ "\n" fp)
(setqz (getstring "\n输入编号字母") k (getint "\n输入起始编号") k (1- k))
(close fp)
(setq zg (getint "\n输入字高"))
(repeat n
(setq
fp (open "d:/坐标.xls" "a")
k (+ k 1)
p (getpoint "\n输入节点")
x (/ (nth 0 p) 1000)
y (/ (nth 1 p) 1000)
x (strcat "Y=" (rtos x))
y (strcat "X=" (rtos y)))
(command "line" p
(setq p2 (getpoint "\n输入节点2"))
(list (+ (nth 0 p2) (* zg (strlen (strcat z (itoa k))) 0.67)) (nth 1 p2) 0) "")
(command "text" "s" "standard" (list (nth 0 p2) (+ (nth 1 p2) (* zg 0.2)) 0) zg "" (strcat z (itoa k)))
(princ z fp)
(princ k fp)(princ "\t" fp)
(princ y fp)(princ "\t" fp)
(princ x fp)(princ "\n" fp)
(close fp)) ;;将坐标写入标高,循环到此结束,关闭表格
(setvar "cmdecho" s)) (setq p2 (getpoint "\n输入节点2")) 改为(setq p2 (getpointp"\n输入节点2"))试试 可以了，可以说下为什么吗？
(getpoint [] "")格式是这个，不过里面可以省略，可是为什么省略后就不出现引线了呢 llsheng_73 发表于 2014-4-26 16:52 static/image/common/back.gif
(setq p2 (getpoint "\n输入节点2")) 改为(setq p2 (getpointp"\n输入节点2"))试试
可以了，可以说下为什么吗？
(getpoint [] "")格式是这个，不过里面可以省略，可是为什么省略后就不出现引线了呢
把起始坐标点给省掉了它从哪个地方开始给你作引线？ llsheng_73 发表于 2014-4-26 16:52 static/image/common/back.gif
(setq p2 (getpoint "\n输入节点2")) 改为(setq p2 (getpointp"\n输入节点2"))试试
还有P这个东东？？还真不知道
我一般是(getpoint (getpoint)) ysq101 发表于 2014-4-26 17:29 static/image/common/back.gif
还有P这个东东？？还真不知道
我一般是(getpoint (getpoint))
那个p是他前边输入的一个坐标点,你的用法是对的 llsheng_73 发表于 2014-4-26 19:38 static/image/common/back.gif
那个p是他前边输入的一个坐标点,你的用法是对的
我以为getpoint 还有P个这参数呢
页:
[1]