求一个构造线插件

不一样地设计

dijians86 发表于 2025-9-9 12:02
这个可以用 实际使用中 用鼠标右键切换 会更方便

是的，按f建要看键盘，右键比较快，g版的动态捕捉有时候会比较卡顿，代码轻便一点会快很多，要精准一点就用鼠标滚轮放大一点图形即可

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)
)

guosheyang

maiko 发表于 2025-9-9 14:39
;不用grread,空格切换方向
(defun C:TT (/ loop dire pt)
  (setq loop t dire "V")

代码不错  测试了下似乎  F键的设置 其功能与其中空格键功能 重合了   可以不要F键设置   不用grread 似乎题主要求的  右键 改水平的功能 很难实现了