直线命令的增强

--@----- · 发表于 2013-9-2 20:01:52

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

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

×

本帖最后由 --@----- 于 2013-9-2 19:59 编辑

今天上班闲了一天，无聊了就有这么一个想法，对直线命令的优化，想法如下：直线命令L的功能保持不变，只是在原有基础上增加一个功能，输入L指定第一点（鼠标点一点），接着指定第二点（如果用鼠标去捕捉点击的话，这也就算原命令的功能）此时鼠标不点，只是拖动个方向（一般是正交）按下空格。即直线以第一点沿着拖动的方向延伸到最近的物体上，上个图片示意下

--@----- · 发表于 2013-9-2 20:10:37

再啰嗦几句，就是输入直线L 指定第一点，指定第二点，指定第二点（这都是原CAD画直线功能，要保留的）如果在指定第二点的时候，不去用鼠标捕捉，而是鼠标拖动个方向空格就能延伸到最近的物体上了。希望哪位大师解决下这个问题？

Lispboy · 发表于 2013-9-2 20:30:40

--@----- 发表于 2013-9-2 20:10
再啰嗦几句，就是输入直线L 指定第一点，指定第二点，指定第二点（这都是原CAD画直线功能，要保留的）如 ...

你这个最近物体要怎么找呢？任意的什么都行吗？多少算最近，离开十万八千里但却是能交上的，算吗？我觉得还得有个规则，比如什么层，什么实体。

--@----- · 发表于 2013-9-2 20:37:11

既然要求增加这个命令在使用的时候其实心中都有数能交上去的，不然不会用这个命令。如果真的没有那就结束这个命令或者是一条射线都无所谓的。如果以层什么的去确定，反而麻烦还不如用鼠标去点击第二点。增加这个命令其实也就是懒得去用鼠标去捕捉第二点了。效率更快些。画线命令还是使用最多的

--@----- · 发表于 2013-9-2 20:43:38

再比如下面这两个图形我要画水平线把口封了，也就是点击个端点，拖动下鼠标空格就完事了。当然也可以保持原有的功能捕捉这两点画直线，相比直线还是托的比较利索。不防大师试试我这想法

ysq101 · 发表于 2013-9-2 20:44:55

实用性不够啊~~~

Lispboy · 发表于 2013-9-2 20:55:10

--@----- 发表于 2013-9-2 20:43
再比如下面这两个图形我要画水平线把口封了，也就是点击个端点，拖动下鼠标空格就完事了。当然也可以保 ...

这两个线中间要是有别的实体呢？

--@----- · 发表于 2013-9-2 20:55:13

ysq101 发表于 2013-9-2 20:44
实用性不够啊~~~

对于直线的使用平率还是比较高的，针对这一功能是不是使用便捷，还只能靠设想与个人绘图习惯。

--@----- · 发表于 2013-9-2 20:59:30

本帖最后由 --@----- 于 2013-9-2 21:02 编辑

Lispboy 发表于 2013-9-2 20:55
这两个线中间要是有别的实体呢？

如果有别的实体那就用原来点击的方式啊。使用这一个功能，其实一般中间不会有实体的而且能延上去的。不然就用原来的操作去点击了啊。自己画图的时候什么情况心中都有数的。所以这个就是直线命令的增强（保留原来功能的）

ysq101 · 发表于 2013-9-2 21:19:08

--@----- 发表于 2013-9-2 20:59
如果有别的实体那就用原来点击的方式啊。使用这一个功能，其实一般中间不会有实体的而且能延上去的。 ...

类似于手电筒吧!!!

Lispboy · 发表于 2013-9-2 21:26:59

--@----- 发表于 2013-9-2 20:59
如果有别的实体那就用原来点击的方式啊。使用这一个功能，其实一般中间不会有实体的而且能延上去的。 ...

你至少得画一点吧，然后也不用晃了，按前面那个线的方向延伸，你要是不画出一条直线，那么晃后，按什么方向尼？

--@----- · 发表于 2013-9-2 21:49:56

Lispboy 发表于 2013-9-2 21:26
你至少得画一点吧，然后也不用晃了，按前面那个线的方向延伸，你要是不画出一条直线，那么晃后，按什么 ...

开正交的就是拖动代表方向，延伸至物体。只能这样算是节省时间来，假如鼠标去点的话，那还不如直接点到目标点上去了。优点也就在与拖动下就空格省点时间。单独画一根线省不了几秒。想到直线画线的这种情况每天出现概率还是很多的，。其实也就是懒，能走捷径就走捷径才想出来这个想法{:soso_e113:}

st788796 · 发表于 2013-9-2 22:16:08

粘连，就是赖上了:)

--@----- · 发表于 2013-9-2 22:39:22

st788796 发表于 2013-9-2 22:16
粘连，就是赖上了

关键群里大师多，就得想好方法，达到插件的完美{:soso_e100:}

Free-Lancer · 发表于 2013-9-3 11:42:47

简单示意, 适用Cad 2011 + xdapi

(defun c:tt (/ p ln tf ret ss p1)
(if (setq p (getpoint "\nFirst point: "))
(progn
(setq ss (xdrx_line_make p (polar p 1. 0.))
ln (ssname ss 0)
)
(setq tf t)
(while tf
(setq ret (grread t 1 0))
(cond
((= (car ret) 3)
(setpropertyvalue ln "Endpoint" p1)
(setq tf nil)
)
((= (cadr ret) 32)
(vl-cmdf ".extend"
"all"
""
(list ln (getpropertyvalue ln "Endpoint"))
""
)
(setq tf nil)
)
((= (car ret) 5)
(if (or
(<= (angle p (cadr ret)) (* 0.25 pi))
(> (angle p (cadr ret)) (* 1.5 pi))
(<= (* 0.75 pi) (angle p (cadr ret)) (* 1.25 pi))
)
(setq p1 (list (car (cadr ret)) (cadr p) 0.))
(setq p1 (list (car p) (cadr (cadr ret)) 0.))
)
(setpropertyvalue ln "Endpoint" p1)
)
(t (setq tf nil))
)
)
)
)
(princ)
)

(defun c:tt (/ p ln tf ret ss p1) 
  (if (setq p (getpoint "\nFirst point: ")) 
    (progn 
      (setq ss (xdrx_line_make p (polar p 1. 0.)) 
     ln (ssname ss 0) 
      ) 
      (setq tf t) 
      (while tf 
 (setq ret (grread t 1 0)) 
 (cond 
   ((= (car ret) 3) 
    (setpropertyvalue ln "Endpoint"  p1) 
    (setq tf nil) 
   ) 
   ((= (cadr ret) 32) 
    (vl-cmdf ".extend" 
      "all" 
      "" 
      (list ln (getpropertyvalue ln "Endpoint")) 
      "" 
    ) 
    (setq tf nil) 
   ) 
   ((= (car ret) 5) 
    (if (or 
   (<= (angle p (cadr ret)) (* 0.25 pi)) 
   (> (angle p (cadr ret)) (* 1.5 pi)) 
   (<= (* 0.75 pi) (angle p (cadr ret)) (* 1.25 pi)) 
        ) 
      (setq p1 (list (car (cadr ret)) (cadr p) 0.)) 
      (setq p1 (list (car p) (cadr (cadr ret)) 0.)) 
    ) 
    (setpropertyvalue ln "Endpoint" p1) 
   ) 
   (t (setq tf nil)) 
 ) 
      ) 
    ) 
  ) 
  (princ) 
)

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

[求助] 直线命令的增强

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评