[求助]：能用LISP得到十字光标的即时点吗？

nuance · 发表于 2003-7-27 22:36:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能用LISP得到十字光标的即时点吗？光标移到什么位置就得到该点，不需按下鼠标键。

XDSoft · 发表于 2003-7-27 22:58:08

最初由 nuance 发布
[B]能用LISP得到十字光标的即时点吗？光标移到什么位置就得到该点，不需按下鼠标键。 [/B]

XDRX_API

[font=courier]
145.xdrx_drawing_lastpts
功能：返回最近两次用鼠标左键拾取过的点。
调用格式：(xdrx_drawing_getlastptss)
[/font]

复制代码

[font=courier]
xdrx_drawing_GetCPoint
功能：返回鼠标当前位置的WCS坐标
调用格式：(xdrx_drawing_getcpoint)
返回值：点
[/font]

复制代码

lijiao · 发表于 2003-7-28 08:32:03

最初由 nuance 发布
[B]能用LISP得到十字光标的即时点吗？光标移到什么位置就得到该点，不需按下鼠标键。 [/B]

请看看GRREAD函数

柔柔 · 发表于 2003-7-31 10:50:19

这个问题我也甚感兴趣，我想用 grread 是想移动光标得到坐标值后操作对象，完后按鼠标左键让对象停下来，就像 ACAD的移动、旋转命令那样。 lisp 输入一个点用 getpoint ，但它是等待输入，也即获得用户输入前是不作任何运行的，当然达不到动态效果。请高手指点，先行谢过。

nuance · 发表于 2003-7-31 13:21:00

我刚学的
(grread t 5)

aeo · 发表于 2003-8-1 00:32:44

最初由柔柔发布
[B]这个问题我也甚感兴趣，我想用 grread 是想移动光标得到坐标值后操作对象，完后按鼠标左键让对象停下来，就像 ACAD的移动、旋转命令那样。 lisp 输入一个点用 getpoint ，但它是等待输入，也即获得用户输入前是不作?.. [/B]

lisp不可能
用xd-api试试

lijiao · 发表于 2003-8-1 08:15:51

最初由 aeo 发布
[B][QUOTE]最初由柔柔发布
[B]这个问题我也甚感兴趣，我想用 grread 是想移动光标得到坐标值后操作对象，完后按鼠标左键让对象停下来，就像 ACAD的移动、旋转命令那样。 lisp 输入一个点用 getpoint ，但它是... [/B]

用LSP应该可以实现，就是所谓的拖动效果。
下图中，圆的大小、位置，文字的移动都是例子。

柔柔 · 发表于 2003-8-1 09:38:31

我在一本书上看到“Autodesk 公司建议在用grread 之前用getxxx ”，我试了不行。
楼上朋友，既然lisp能行，能给出这样的lisp语句给我参考一下吗？
不要加装其他软件就用普通的lisp 函数能实现是最妙的办法，我是这么认为的。

XDSoft · 发表于 2003-8-1 18:47:35

最初由 lijiao 发布
[B][QUOTE]最初由 aeo 发布
[B][QUOTE]最初由柔柔发布
[B]这个问题我也甚感兴趣，我想用 grread 是想移动光标得到坐标值后操作对象，完后按鼠标左键让对象停下来，就像 ACAD的移动、旋转命令那样。 l... [/B]

这个方法是每次都要拷贝选择集，实体生成要影响速度，在拖动较多的实体时候，就不能忍受速度了。

ACAD的拖动原理，是显示实体的向量到屏幕上（不是绘制实体），所以速度很快。

柔柔 · 发表于 2003-8-1 19:42:07

也许是我没表达清楚，我怎么觉得我要的问题始终没有得到解决呢，我的问题其实就二点：
1.  不用任何其他软件编lsp程序（我过去编lsp 程序就用windows的记事本）。如果lisp 达不到我想要的功能，我宁愿放弃，因为我特注重ACAD的通用性，如果要加载某工具尤其是使用我编的程序的人也要某工具支持的话，那我编这个程序就没意思了。
2.  我要想达到的效果无非是界面，给用户视觉上舒服，比如
(setq pt2 (getpoint "\n指示第二点："))  完全可以，但改成
(setq pt2 (getpoint pt1 "\n指示第二点："))  使界面更友好。
如果lisp能行，就给几行，如：
(while (= pt2 nil)
(setq pt2 (cadr (grread T 5)))
(command "_circle" pt2 50 )
(setq p2 nil) )
)
      当然，我这个是停不下来的

如果lisp编不出来这种效果或者技术性高宁愿给完整的程序也不给原代码那也无所谓。我现在的工作不是画图也不是编程，钻研、自己开发点感兴趣的小功能是我的爱好，但我编的程序绝对是独立的并且只要是ACAD（不管哪个版本）下就能用的东西。请恕不恭！

我下图中指示剖面方向的点输入后才显示箭头，如果在这之前箭头就显示并跟光标变化，按下左键输入点后定下便直观了。我这个程序可以画任意方向但画水平垂直方向并不需要按F8 使其正交，并且剖面符号自动递增，键盘操作很少。

lijiao · 发表于 2003-8-4 10:27:42

最初由柔柔发布
[B]也许是我没表达清楚，我怎么觉得我要的问题始终没有得到解决呢，我的问题其实就二点：
1. 不用任何其他软件编lsp程序（我过去编lsp 程序就用windows的记事本）。如果lisp 达不到我想要的功能，我宁愿放弃，因为我?.. [/B]

哈哈，好厉害的MM，你并不“柔柔”嘛。

lijiao · 发表于 2003-8-4 10:32:02

这是上面例子的代码：

[FONT=courier new]
(defun c:cs_paoqiefuhao (/ pt pt1 cs_ptzuizong
pt3 pt4 pt5 biaoji ang
ss dis blkname i biaozhu
ang1 ang2 ang3 ang4 dis1
fangxiang fangxiang1 biaoji1
)
(myerr)
(varset "OSMODE" 15359)
(varset "CMDECHO" 0)
(varset "CLAYER" "0")
(varset "CECOLOR" "7")
(varset "PLINEWID" 0)
(setq dis (* bl 5.0))
(setq dis1 (* bl 5.0))
(setq biaozhu "A")
(if (null (setq pt1 (getpoint "\n第一点：")))
(exit)
)
(ptmark pt1)
(setq ss (ssadd))
(varset "CECOLOR" "2")
(varset "OSMODE" 0)
(command "text" "j" "mc" pt1 (* 3.5 bl) 0.0 biaozhu)
(ssadd (entlast) ss)
(cs_move ss pt1 t)
(setq biaozhu (cdr (assoc 1 (entget (entlast)))))
(setq biaoji t)
(setq fangxiang 118)
(setq fangxiang1 t)
(princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为V>")
(while biaoji
(setq cs_ptzuizong (grread t 4 0))
(cond
((= 3 (car cs_ptzuizong))
(setq biaoji nil)
(setq cs_ptzuizong (cadr cs_ptzuizong))
(cond
((= fangxiang 118)
(setq cs_ptzuizong
(list (car pt1)
(cadr cs_ptzuizong)
(nth 2 cs_ptzuizong)
)
)
)
((= fangxiang 104)
(setq cs_ptzuizong
(list (car cs_ptzuizong)
(cadr pt1)
(nth 2 cs_ptzuizong)
)
)
)
(t (princ))
)
(setq pt5 (osnap cs_ptzuizong "_int"))
(if pt5
(setq cs_ptzuizong pt5)
)
(if (/= pt1 cs_ptzuizong)
(progn
(setq ang1 (angle pt1 cs_ptzuizong))
(if fangxiang1
(setq ang2 (+ ang1 (* 0.5 pi)))
(setq ang2 (- ang1 (* 0.5 pi)))
)
(setq pt5 (polar pt1 ang2 dis1))
(varset "CECOLOR" "2")
(command "pline"
pt1
"w"
0
0
pt5
"w"
(* bl 0.94)
0
(polar pt5 ang2 (* 3.5 bl))
""
)
(ssadd (entlast) ss)
(varset "CECOLOR" "7")
(command "line" pt1 (polar pt1 ang1 dis) "")
(ssadd (entlast) ss)
(cs_deffh ss pt1)
(redraw)
)
)
(ptmark cs_ptzuizong)
(setq ss (ssadd))
(command "line"
cs_ptzuizong
(polar cs_ptzuizong (+ ang1 pi) dis)
""
)
(ssadd (entlast) ss)
(setq ang3 ang1
ang4 ang2
pt1 cs_ptzuizong
)
(varset "CECOLOR" "2")
(varset "OSMODE" 0)
(command "text" "j" "mc" pt1 (* 3.5 bl) 0.0 biaozhu)
(ssadd (entlast) ss)
(cs_move (entlast) pt1 nil)
)
((= 5 (car cs_ptzuizong))
(setq cs_ptzuizong (cadr cs_ptzuizong))
(cond
((= fangxiang 118)
(setq cs_ptzuizong
(list (car pt1)
(cadr cs_ptzuizong)
(nth 2 cs_ptzuizong)
)
)
)
((= fangxiang 104)
(setq cs_ptzuizong
(list (car cs_ptzuizong)
(cadr pt1)
(nth 2 cs_ptzuizong)
)
)
)
(t (princ))
)
(if (/= pt1 cs_ptzuizong)
(progn
(setq ang1 (angle pt1 cs_ptzuizong))
(if fangxiang1
(setq ang2 (+ ang1 (* 0.5 pi)))
(setq ang2 (- ang1 (* 0.5 pi)))
)
(redraw)
(grdraw pt1 (polar pt1 ang1 dis) 7)
(setq pt5 (polar pt1 ang2 dis1))
(grdraw pt1 pt5 2)
(grdraw (polar pt5 ang1 (* 0.47 bl))
(polar pt5 (+ ang1 pi) (* 0.47 bl))
2
)
(grdraw (polar pt5 ang1 (* 0.47 bl))
(polar pt5 ang2 (* 3.5 bl))
2
)
(grdraw (polar pt5 ang2 (* 3.5 bl))
(polar pt5 (+ ang1 pi) (* 0.47 bl))
2
)
(grdraw cs_ptzuizong (polar cs_ptzuizong (+ ang1 pi) dis) 7)
(setq pt5 (polar cs_ptzuizong ang2 dis1))
(grdraw cs_ptzuizong pt5 2)
(grdraw (polar pt5 ang1 (* 0.47 bl))
(polar pt5 (+ ang1 pi) (* 0.47 bl))
2
)
(grdraw (polar pt5 ang1 (* 0.47 bl))
(polar pt5 ang2 (* 3.5 bl))
2
)
(grdraw (polar pt5 ang2 (* 3.5 bl))
(polar pt5 (+ ang1 pi) (* 0.47 bl))
2
)
)
)
)
((= 2 (car cs_ptzuizong))
(cond
((= (cadr cs_ptzuizong) 118)
(setq fangxiang (cadr cs_ptzuizong))
(princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为V>")
)
((= (cadr cs_ptzuizong) 104)
(setq fangxiang (cadr cs_ptzuizong))
(princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为H>")
)
((= (cadr cs_ptzuizong) 102)
(setq fangxiang1 (not fangxiang1))
)
(t
(setq fangxiang (cadr cs_ptzuizong))
(princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为R>")
)
)
)
(t (princ))
)
)
(setq biaoji1 t)
(while biaoji1
(setq biaoji t)
(setq fangxiang 100)
(princ "\n水平H／垂直V／任意R／右击退出 <当前为R>")
(while biaoji
(setq cs_ptzuizong (grread t 4 0))
(cond
((= 3 (car cs_ptzuizong))
(setq biaoji nil)
)
((= 5 (car cs_ptzuizong))
(setq cs_ptzuizong (cadr cs_ptzuizong))
(cond
((= fangxiang 118)
(setq cs_ptzuizong
(list (car pt1)
(cadr cs_ptzuizong)
(nth 2 cs_ptzuizong)
)
)
)
((= fangxiang 104)
(setq cs_ptzuizong
(list (car cs_ptzuizong)
(cadr pt1)
(nth 2 cs_ptzuizong)
)
)
)
(t (princ))
)
(if (/= pt1 cs_ptzuizong)
(progn
(setq ang1 (angle pt1 cs_ptzuizong))
(if fangxiang1
(setq ang2 (+ ang1 (* 0.5 pi)))
(setq ang2 (- ang1 (* 0.5 pi)))
)
(redraw)
(grdraw pt1 (polar pt1 ang1 dis) 7)
(grdraw cs_ptzuizong
(polar cs_ptzuizong (+ ang1 pi) dis)
7
)
(setq pt5 (polar cs_ptzuizong ang2 dis1))
(grdraw cs_ptzuizong pt5 2)
(grdraw (polar pt5 ang1 (* 0.47 bl))
(polar pt5 (+ ang1 pi) (* 0.47 bl))
2
)
(grdraw (polar pt5 ang1 (* 0.47 bl))
(polar pt5 ang2 (* 3.5 bl))
2
)
(grdraw (polar pt5 ang2 (* 3.5 bl))
(polar pt5 (+ ang1 pi) (* 0.47 bl))
2
)
)
)
)
((= 2 (car cs_ptzuizong))
(setq fangxiang (cadr cs_ptzuizong))
(cond
((= fangxiang 118)
(princ "\n水平H／垂直V／任意R／右击退出 <当前为V>")
)
((= fangxiang 104)
(princ "\n水平H／垂直V／任意R／右击退出 <当前为H>")
)
(t
(princ "\n水平H／垂直V／任意R／右击退出 <当前为R>")
)
)
)
((= 25 (car cs_ptzuizong))
(setq biaoji nil
biaoji1 nil
)
)
(t (princ))
)
)
(if biaoji1
(progn
(setq cs_ptzuizong (cadr cs_ptzuizong))
(cond
((= fangxiang 118)
(setq cs_ptzuizong
(list (car pt1)
(cadr cs_ptzuizong)
(nth 2 cs_ptzuizong)
)
)
)
((= fangxiang 104)
(setq cs_ptzuizong
(list (car cs_ptzuizong)
(cadr pt1)
(nth 2 cs_ptzuizong)
)
)
)
(t (princ))
)
(setq pt5 (osnap cs_ptzuizong "_int"))
(if pt5
(setq cs_ptzuizong pt5)
)
(if (/= pt1 cs_ptzuizong)
(progn
(setq ang1 (angle pt1 cs_ptzuizong))
(varset "CECOLOR" "7")
(command "line" pt1 (polar pt1 ang1 dis) "")
(ssadd (entlast) ss)
(cs_deffh ss pt1)
(redraw)
)
)
(ptmark cs_ptzuizong)
(setq ss (ssadd))
(command "line"
cs_ptzuizong
(polar cs_ptzuizong (+ ang1 pi) dis)
""
)
(ssadd (entlast) ss)
(setq ang3 ang1
ang4 ang2
pt1 cs_ptzuizong
)
(varset "CECOLOR" "2")
(varset "OSMODE" 0)
(command "text" "j" "mc" pt1 (* 3.5 bl) 0.0 biaozhu)
(ssadd (entlast) ss)
(cs_move (entlast) pt1 nil)
(setq biaoji t)
)
(progn
(setq ang1 ang3
ang2 ang4
)
(setq pt5 (polar pt1 ang2 dis1))
(varset "CECOLOR" "2")
(command "pline"
pt1
"w"
0
0
pt5
"w"
(* bl 0.94)
0
(polar pt5 ang2 (* 3.5 bl))
""
)
(ssadd (entlast) ss)
(cs_deffh ss pt1)
(redraw)
)
)
)
(restore)
(princ)
)
[/FONT]

[FONT=courier new] 
(defun c:cs_paoqiefuhao        (/          pt           pt1            cs_ptzuizong 
                         pt3          pt4           pt5            biaoji   ang 
                         ss          dis           blkname  i             biaozhu 
                         ang1          ang2           ang3            ang4     dis1 
                         fangxiang           fangxiang1             biaoji1 
                        ) 
  (myerr) 
  (varset "OSMODE" 15359) 
  (varset "CMDECHO" 0) 
  (varset "CLAYER" "0") 
  (varset "CECOLOR" "7") 
  (varset "PLINEWID" 0) 
 
 
 
 
 
  (setq dis (* bl 5.0)) 
  (setq dis1 (* bl 5.0)) 
  (setq biaozhu "A") 
  (if (null (setq pt1 (getpoint "\n第一点："))) 
    (exit) 
  ) 
  (ptmark pt1) 
  (setq ss (ssadd)) 
 
  (varset "CECOLOR" "2") 
  (varset "OSMODE" 0) 
  (command "text" "j" "mc" pt1 (* 3.5 bl) 0.0 biaozhu) 
  (ssadd (entlast) ss) 
  (cs_move ss pt1 t) 
  (setq biaozhu (cdr (assoc 1 (entget (entlast))))) 
  (setq biaoji t) 
  (setq fangxiang 118) 
  (setq fangxiang1 t) 
  (princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为V>") 
 
  (while biaoji 
    (setq cs_ptzuizong (grread t 4 0)) 
    (cond 
      ((= 3 (car cs_ptzuizong)) 
       (setq biaoji nil) 
       (setq cs_ptzuizong (cadr cs_ptzuizong)) 
       (cond 
         ((= fangxiang 118) 
          (setq        cs_ptzuizong 
                 (list (car pt1) 
                       (cadr cs_ptzuizong) 
                       (nth 2 cs_ptzuizong) 
                 ) 
          ) 
         ) 
         ((= fangxiang 104) 
          (setq        cs_ptzuizong 
                 (list (car cs_ptzuizong) 
                       (cadr pt1) 
                       (nth 2 cs_ptzuizong) 
                 ) 
          ) 
         ) 
         (t (princ)) 
       ) 
       (setq pt5 (osnap cs_ptzuizong "_int")) 
       (if pt5 
         (setq cs_ptzuizong pt5) 
       ) 
       (if (/= pt1 cs_ptzuizong) 
         (progn 
           (setq ang1 (angle pt1 cs_ptzuizong)) 
           (if fangxiang1 
             (setq ang2 (+ ang1 (* 0.5 pi))) 
             (setq ang2 (- ang1 (* 0.5 pi))) 
           ) 
           (setq pt5 (polar pt1 ang2 dis1)) 
           (varset "CECOLOR" "2") 
           (command "pline" 
                    pt1 
                    "w" 
                    0 
                    0 
                    pt5 
                    "w" 
                    (* bl 0.94) 
                    0 
                    (polar pt5 ang2 (* 3.5 bl)) 
                    "" 
           ) 
           (ssadd (entlast) ss) 
           (varset "CECOLOR" "7") 
           (command "line" pt1 (polar pt1 ang1 dis) "") 
           (ssadd (entlast) ss) 
           (cs_deffh ss pt1) 
           (redraw) 
         ) 
       ) 
 
       (ptmark cs_ptzuizong) 
       (setq ss (ssadd)) 
 
       (command        "line" 
                cs_ptzuizong 
                (polar cs_ptzuizong (+ ang1 pi) dis) 
                "" 
       ) 
       (ssadd (entlast) ss) 
       (setq ang3 ang1 
             ang4 ang2 
             pt1  cs_ptzuizong 
       ) 
 
       (varset "CECOLOR" "2") 
       (varset "OSMODE" 0) 
       (command "text" "j" "mc" pt1 (* 3.5 bl) 0.0 biaozhu) 
       (ssadd (entlast) ss) 
       (cs_move (entlast) pt1 nil) 
      ) 
      ((= 5 (car cs_ptzuizong)) 
       (setq cs_ptzuizong (cadr cs_ptzuizong)) 
       (cond 
         ((= fangxiang 118) 
          (setq        cs_ptzuizong 
                 (list (car pt1) 
                       (cadr cs_ptzuizong) 
                       (nth 2 cs_ptzuizong) 
                 ) 
          ) 
         ) 
         ((= fangxiang 104) 
          (setq        cs_ptzuizong 
                 (list (car cs_ptzuizong) 
                       (cadr pt1) 
                       (nth 2 cs_ptzuizong) 
                 ) 
          ) 
         ) 
         (t (princ)) 
       ) 
 
       (if (/= pt1 cs_ptzuizong) 
         (progn 
           (setq ang1 (angle pt1 cs_ptzuizong)) 
           (if fangxiang1 
             (setq ang2 (+ ang1 (* 0.5 pi))) 
             (setq ang2 (- ang1 (* 0.5 pi))) 
           ) 
           (redraw) 
           (grdraw pt1 (polar pt1 ang1 dis) 7) 
           (setq pt5 (polar pt1 ang2 dis1)) 
           (grdraw pt1 pt5 2) 
           (grdraw (polar pt5 ang1 (* 0.47 bl)) 
                   (polar pt5 (+ ang1 pi) (* 0.47 bl)) 
                   2 
           ) 
           (grdraw (polar pt5 ang1 (* 0.47 bl)) 
                   (polar pt5 ang2 (* 3.5 bl)) 
                   2 
           ) 
           (grdraw (polar pt5 ang2 (* 3.5 bl)) 
                   (polar pt5 (+ ang1 pi) (* 0.47 bl)) 
                   2 
           ) 
 
           (grdraw cs_ptzuizong (polar cs_ptzuizong (+ ang1 pi) dis) 7) 
           (setq pt5 (polar cs_ptzuizong ang2 dis1)) 
           (grdraw cs_ptzuizong pt5 2) 
           (grdraw (polar pt5 ang1 (* 0.47 bl)) 
                   (polar pt5 (+ ang1 pi) (* 0.47 bl)) 
                   2 
           ) 
           (grdraw (polar pt5 ang1 (* 0.47 bl)) 
                   (polar pt5 ang2 (* 3.5 bl)) 
                   2 
           ) 
           (grdraw (polar pt5 ang2 (* 3.5 bl)) 
                   (polar pt5 (+ ang1 pi) (* 0.47 bl)) 
                   2 
           ) 
         ) 
       ) 
      ) 
      ((= 2 (car cs_ptzuizong)) 
       (cond 
         ((= (cadr cs_ptzuizong) 118) 
          (setq fangxiang (cadr cs_ptzuizong)) 
          (princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为V>") 
         ) 
         ((= (cadr cs_ptzuizong) 104) 
          (setq fangxiang (cadr cs_ptzuizong)) 
          (princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为H>") 
         ) 
         ((= (cadr cs_ptzuizong) 102) 
          (setq fangxiang1 (not fangxiang1)) 
         ) 
         (t 
          (setq fangxiang (cadr cs_ptzuizong)) 
          (princ "\n水平H／垂直V／任意R／改变剖切方向F <当前为R>") 
         ) 
       ) 
      ) 
 
 
      (t (princ)) 
    ) 
  ) 
 
  (setq biaoji1 t) 
  (while biaoji1 
    (setq biaoji t) 
    (setq fangxiang 100) 
    (princ "\n水平H／垂直V／任意R／右击退出 <当前为R>") 
 
    (while biaoji 
      (setq cs_ptzuizong (grread t 4 0)) 
      (cond 
        ((= 3 (car cs_ptzuizong)) 
         (setq biaoji nil) 
        ) 
        ((= 5 (car cs_ptzuizong)) 
         (setq cs_ptzuizong (cadr cs_ptzuizong)) 
         (cond 
           ((= fangxiang 118) 
            (setq cs_ptzuizong 
                   (list (car pt1) 
                         (cadr cs_ptzuizong) 
                         (nth 2 cs_ptzuizong) 
                   ) 
            ) 
           ) 
           ((= fangxiang 104) 
            (setq cs_ptzuizong 
                   (list (car cs_ptzuizong) 
                         (cadr pt1) 
                         (nth 2 cs_ptzuizong) 
                   ) 
            ) 
           ) 
           (t (princ)) 
         ) 
 
         (if (/= pt1 cs_ptzuizong) 
           (progn 
             (setq ang1 (angle pt1 cs_ptzuizong)) 
             (if fangxiang1 
               (setq ang2 (+ ang1 (* 0.5 pi))) 
               (setq ang2 (- ang1 (* 0.5 pi))) 
             ) 
             (redraw) 
             (grdraw pt1 (polar pt1 ang1 dis) 7) 
 
             (grdraw cs_ptzuizong 
                     (polar cs_ptzuizong (+ ang1 pi) dis) 
                     7 
             ) 
             (setq pt5 (polar cs_ptzuizong ang2 dis1)) 
             (grdraw cs_ptzuizong pt5 2) 
             (grdraw (polar pt5 ang1 (* 0.47 bl)) 
                     (polar pt5 (+ ang1 pi) (* 0.47 bl)) 
                     2 
             ) 
             (grdraw (polar pt5 ang1 (* 0.47 bl)) 
                     (polar pt5 ang2 (* 3.5 bl)) 
                     2 
             ) 
             (grdraw (polar pt5 ang2 (* 3.5 bl)) 
                     (polar pt5 (+ ang1 pi) (* 0.47 bl)) 
                     2 
             ) 
           ) 
         ) 
 
        ) 
        ((= 2 (car cs_ptzuizong)) 
         (setq fangxiang (cadr cs_ptzuizong)) 
         (cond 
           ((= fangxiang 118) 
            (princ "\n水平H／垂直V／任意R／右击退出 <当前为V>") 
           ) 
           ((= fangxiang 104) 
            (princ "\n水平H／垂直V／任意R／右击退出 <当前为H>") 
           ) 
           (t 
            (princ "\n水平H／垂直V／任意R／右击退出 <当前为R>") 
           ) 
         ) 
        ) 
        ((= 25 (car cs_ptzuizong)) 
         (setq biaoji nil 
               biaoji1 nil 
         ) 
        ) 
        (t (princ)) 
      ) 
    ) 
  (if biaoji1 
    (progn 
      (setq cs_ptzuizong (cadr cs_ptzuizong)) 
      (cond 
        ((= fangxiang 118) 
         (setq cs_ptzuizong 
                (list (car pt1) 
                      (cadr cs_ptzuizong) 
                      (nth 2 cs_ptzuizong) 
                ) 
         ) 
        ) 
        ((= fangxiang 104) 
         (setq cs_ptzuizong 
                (list (car cs_ptzuizong) 
                      (cadr pt1) 
                      (nth 2 cs_ptzuizong) 
                ) 
         ) 
        ) 
        (t (princ)) 
      ) 
      (setq pt5 (osnap cs_ptzuizong "_int")) 
      (if pt5 
        (setq cs_ptzuizong pt5) 
      ) 
      (if (/= pt1 cs_ptzuizong) 
        (progn 
          (setq ang1 (angle pt1 cs_ptzuizong)) 
          (varset "CECOLOR" "7") 
          (command "line" pt1 (polar pt1 ang1 dis) "") 
          (ssadd (entlast) ss) 
          (cs_deffh ss pt1) 
          (redraw) 
        ) 
      ) 
      (ptmark cs_ptzuizong) 
      (setq ss (ssadd)) 
 
      (command "line" 
               cs_ptzuizong 
               (polar cs_ptzuizong (+ ang1 pi) dis) 
               "" 
      ) 
      (ssadd (entlast) ss) 
      (setq ang3 ang1 
            ang4 ang2 
            pt1         cs_ptzuizong 
      ) 
 
      (varset "CECOLOR" "2") 
      (varset "OSMODE" 0) 
      (command "text" "j" "mc" pt1 (* 3.5 bl) 0.0 biaozhu) 
      (ssadd (entlast) ss) 
      (cs_move (entlast) pt1 nil) 
      (setq biaoji t) 
    ) 
    (progn 
      (setq ang1 ang3 
            ang2 ang4 
      ) 
      (setq pt5 (polar pt1 ang2 dis1)) 
      (varset "CECOLOR" "2") 
      (command "pline" 
               pt1 
               "w" 
               0 
               0 
               pt5 
               "w" 
               (* bl 0.94) 
               0 
               (polar pt5 ang2 (* 3.5 bl)) 
               "" 
      ) 
      (ssadd (entlast) ss) 
      (cs_deffh ss pt1) 
      (redraw) 
    ) 
  ) 
 
) 
  (restore) 
  (princ) 
) 
  [/FONT]

柔柔 · 发表于 2003-8-4 12:18:31

哈哈，终于盼到了，谢谢！我先下载，取名“学习.lsp”，我要好好研究研究。顺便恭维一句（真心的）：你的程序排列很工整，是个完美主义者吧。^_^

lijiao · 发表于 2003-8-4 12:35:38

最初由柔柔发布
[B]哈哈，终于盼到了，谢谢！我先下载，取名“学习.lsp”，我要好好研究研究。顺便恭维一句（真心的）：你的程序排列很工整，是个完美主义者吧。^_^ [/B]

哈哈，你又错了，在VL中，格式化一下就完成了。

柔柔 · 发表于 2003-8-6 10:38:05

^_^，我就用(grread)达到了对象随光标变化。下面是半成品，接下来的完善不成问题。其实我真正要的就是这个，标高程序成不成无所谓啦，谢谢老兄！

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：能用LISP得到十字光标的即时点吗？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：能用LISP得到十字光标的即时点吗？

Re: [求助]：能用LISP得到十字光标的即时点吗？

浏览过的版块