求一个构造线插件

dijians86

求构造线插件  输入GG 默认垂直构造线  鼠标右键或者F键 切换水平构造线  可以循环切换 横竖线  这样就不用输入两次命令 （构造线使用评率超高）

【新提醒】求构造线插件 - 付费开发 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!

实际使用 鼠标右键切换会方便

maiko

;不用grread,空格切换方向
(defun C:TT (/ loop dire pt)
  (setq loop t dire "V")
  (command "_.XLINE" dire)
  (while loop
    (initget "F E")
    (setq pt (getpoint (strcat "\n插入点/切换方向[F]/退出[E] <当前:" dire ">: ")))
    (cond  
      ((= pt nil)
        (setq dire (if (= dire "V") "H" "V")) ; 空格键切换方向
        (command)
        (command "_.XLINE" dire)
      )
      ((listp pt) (command pt))
      ((= pt "F")
        (setq dire (if (= dire "V") "H" "V"))
        (command)
        (command "_.XLINE" dire)
      )
      ((= pt "E") (command) (setq loop nil)) ; 输入E退出
    )
  )
  (prin1)
)

不一样地设计

dijians86 发表于 2025-9-9 10:51
语法错误 用不了

可能是系统问题，在Mac下编写的，在win下会编码错误，试一下面修改的

2. (defun c:gg (/ p m s mode os-old pt undo lst)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq os-old (getvar "OSMODE"))
   
5.   (setq mode 1)
   
6.   (setq undo '())
   
7.   (setvar "OSMODE" 1535)
   
8.   (setvar "AUTOSNAP" 16383)
   
9.   (princ "\n右键:切模式(当前:垂直│) | 左键:画 | Z:撤 | 空格:退\n")
   
10.   (while (setq p (grread t))
    
11.     (setq m (car p))
    
12.     (setq pt (cadr p))
    
13.     (setq s (if (and (listp pt) pt) (osnap pt "_end,_mid") nil))
    
14.     (setq pt (if s s pt))
    
15.     (cond
    
16.       ((= m 25)
    
17.        (setq mode (if (= mode 0) 1 0))
    
18.        (princ (strcat "\n切换: " (if (= mode 0) "水平─" "垂直│") "\n"))
    
19.       )
    
20.       ((= m 3)
    
21.        (command "_xline" (if (= mode 0) "_h" "_v") pt "")
    
22.        (setq lst (entlast))
    
23.        (if lst (setq undo (cons lst undo)))
    
24.        (princ (strcat "→ 已画: " (if (= mode 0) "水平─" "垂直│") (if s " (捕点)" "") "\n"))
    
25.       )
    
26.       ((and (= m 2) (= (cadr p) 122))
    
27.        (if undo
    
28.            (progn
    
29.              (command "_erase" (car undo) "")
    
30.              (setvar "cmdecho" 1)
    
31.              (setq undo (cdr undo))
    
32.              (princ "\n→ 已撤回\n")
    
33.            )
    
34.            (princ "\n无操作可撤\n")
    
35.        )
    
36.       )
    
37.       ((and (= m 2) (member (cadr p) '(32 27)))
    
38.        (setvar "OSMODE" os-old)
    
39.        (princ "\n工具退出\n")
    
40.        (exit)
    
41.       )
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )
    

(defun c:gg (/ p m s mode os-old pt undo lst)<br />   (setvar "cmdecho" 0)<br />   (setq os-old (getvar "OSMODE"))<br />   (setq mode 1) <br />   (setq undo '())<br />   (setvar "OSMODE" 1535)<br />   (setvar "AUTOSNAP" 16383)<br />   (princ "\n右键:切模式(当前:垂直│) | 左键:画 | Z:撤 | 空格:退\n")<br />   (while (setq p (grread t))<br />     (setq m (car p))<br />     (setq pt (cadr p))<br />     (setq s (if (and (listp pt) pt) (osnap pt "_end,_mid") nil))<br />     (setq pt (if s s pt))<br />     (cond<br />       ((= m 25)<br />        (setq mode (if (= mode 0) 1 0))<br />        (princ (strcat "\n切换: " (if (= mode 0) "水平─" "垂直│") "\n"))<br />       )<br />       ((= m 3)<br />        (command "_xline" (if (= mode 0) "_h" "_v") pt "")<br />        (setq lst (entlast))<br />        (if lst (setq undo (cons lst undo)))<br />        (princ (strcat "→ 已画: " (if (= mode 0) "水平─" "垂直│") (if s " (捕点)" "") "\n"))<br />       )<br />       ((and (= m 2) (= (cadr p) 122))<br />        (if undo<br />            (progn<br />              (command "_erase" (car undo) "")<br />              (setvar "cmdecho" 1)<br />              (setq undo (cdr undo))<br />              (princ "\n→ 已撤回\n")<br />            )<br />            (princ "\n无操作可撤\n")<br />        )<br />       )<br />       ((and (= m 2) (member (cadr p) '(32 27)))<br />        (setvar "OSMODE" os-old)<br />        (princ "\n工具退出\n")<br />        (exit)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

清水白粥

(defun c:HH () (xline_x "h"))  ;水平构造线
(defun c:VV () (xline_x "v"))  ;垂直构造线

不一样地设计

;;刚好有类似要求的，你可以试试，命令XX
;;功能：绘制水平/垂直构造线，右键切换模式，左键画构造线，空格/ESC退出

冒个烟圈

不一样地设计 发表于 2025-9-8 23:41
;;刚好有类似要求的，你可以试试，命令XX
;;功能：绘制水平/垂直构造线，右键切换模式，左键画构造线，空 ...

命令: (LOAD "c:/users/administrator/downloads/绘制水平_垂直构造线XX.lsp") ; 错误: 语法错误

丶俗人

不一样地设计 发表于 2025-9-8 23:41
;;刚好有类似要求的，你可以试试，命令XX
;;功能：绘制水平/垂直构造线，右键切换模式，左键画构造线，空 ...

我发现捕捉没有提示了.,并没有实际需要的效果.如果不需要捕捉倒是没关系.,而且编码需要转换.

dijians86

不一样地设计 发表于 2025-9-8 23:41
;;刚好有类似要求的，你可以试试，命令XX
;;功能：绘制水平/垂直构造线，右键切换模式，左键画构造线，空 ...

语法错误 用不了

YuHB

试着胡乱写了个，不知道能不能用。

2. (defun C:TT (/ loop dire pt)
   
3.   (setq  loop t dire "V")
   
4.   (command "_.XLINE" dire)
   
5.   (while loop
   
6.     (initget 1 "F E")
   
7.     (setq pt (getpoint "\n插入点/切换方向[F]/退出[E]："))
   
8.     (cond  
   
9.       ((listp pt) (command pt))
   
10.       ((= pt "F")
    
11.         (if (= dire "V") (setq dire "H")(setq dire "V"))
    
12.         (command)
    
13.         (command "_.XLINE" dire)
    
14.       )
    
15.       (t (command) (setq loop nil))
    
16.     )
    
17.   )
    
18.   (prin1)
    
19. )

(defun C:TT (/ loop dire pt)<br />   (setq  loop t dire "V")<br />   (command "_.XLINE" dire)<br />   (while loop<br />     (initget 1 "F E")<br />     (setq pt (getpoint "\n插入点/切换方向[F]/退出[E]："))<br />     (cond  <br />       ((listp pt) (command pt))<br />       ((= pt "F")<br />         (if (= dire "V") (setq dire "H")(setq dire "V"))<br />         (command)<br />         (command "_.XLINE" dire)<br />       )<br />       (t (command) (setq loop nil))<br />     )<br />   )<br />   (prin1)<br /> )

不一样地设计

丶俗人 发表于 2025-9-9 07:45
我发现捕捉没有提示了.,并没有实际需要的效果.如果不需要捕捉倒是没关系.,而且编码需要转换.

因为用了grread函数，只能能简单模拟捕捉，光标移到端点附近或者中点附近可以正常识别！

dijians86

这个可以用 实际使用中 用鼠标右键切换 会更方便