[已解决]请高手帮忙做一个快速切换箭头圆点的工具

raimo

画图的时候经常在这两种箭头样式中切换,每次点来点来觉得太麻烦了..
请教这里的高手们,能不能有一个比较简单的lsp工具可以快速切换这两种箭头样式
(注:这是用的qleader引线标注)

如果在切换的时候同时附加一个小功能就更好了..圆点的箭头大小是1 ,切换成箭头的时候自动改大小为2,反之亦然

啵浪鼓

标注箭头系统变量 DIMBLK
引线箭头系统变量 DIMLDRBLK
以下设置自行加在你的程序内，你行的！

将标注箭头改为小圆点
(setvar "DIMBLK" "DOTSMALL")
将标注箭头还原默认
(setvar "DIMBLK" ".")

将引线箭头改为小圆点
(setvar "DIMLDRBLK" "DOTSMALL")
将引线箭头还原默认
(setvar "DIMLDRBLK" ".")

raimo

感谢拨浪鼓的回复...但我是没啥lsp基础的..小地方能看懂,程序却不会写..

能否有个比较完整的,多谢啦..

if

(defun c:aaa ()
  (if (ssget "x" '((0 . "LEADER")))
      (vlax-for obj
        (vla-get-ActiveSelectionSet
          (vla-get-ActiveDocument (vlax-get-acad-object))
        )
        (if (zerop (vla-get-ArrowheadType obj))
          (vla-put-ArrowheadType obj 3)
          (vla-put-ArrowheadType obj 0)
        )
)))

daidong013

学习了！~~好东西！~~

raimo

if 发表于 2011-6-4 09:10
(defun c:aaa ()
  (if (ssget "x" '((0 . "LEADER")))
      (vlax-for obj

感谢你的热心帮助,不过这个是一下子全部转换的..能不能只变化选中的引线呢

caoyin

去掉"x"--->(ssget '((0 . "LEADER")))

raimo

caoyin 发表于 2011-6-5 04:22
去掉"x"--->(ssget '((0 . "LEADER")))

这下好用了..非常感谢caoyin版主的帮忙!!!  


另外能改箭头的大小吗? 我想在圆点变成箭头的时候强制设置箭头大小为2

caoyin

(defun c:aaa ()
  (if (ssget '((0 . "LEADER")))
      (vlax-for obj
        (vla-get-ActiveSelectionSet
          (vla-get-ActiveDocument (vlax-get-acad-object))
        )
        (vla-put-ArrowheadSize obj 2)
        (if (zerop (vla-get-ArrowheadType obj))
          (vla-put-ArrowheadType obj 3)
          (vla-put-ArrowheadType obj 0)
        )
)))

raimo

caoyin 发表于 2011-6-5 16:16
(defun c:aaa ()
  (if (ssget '((0 . "LEADER")))
      (vlax-for obj

多谢C版,这就是我想要的了..虽然还差了一点点,到这个程度我就能改了.

2. ;快速切换引线箭头样式..
   
3. (defun c:ee()
   
4.   (if (ssget)
   
5.       (vlax-for obj
   
6.         (vla-get-ActiveSelectionSet
   
7.           (vla-get-ActiveDocument (vlax-get-acad-object))
   
8.         )        
   
9.         (if (zerop (vla-get-ArrowheadType obj))
   
10.           ((vla-put-ArrowheadType obj 3) (vla-put-ArrowheadSize obj 1))
    
11.           ((vla-put-ArrowheadType obj 0) (vla-put-ArrowheadSize obj 2))
    
12.         )
    
13. )))

;快速切换引线箭头样式..<br /> (defun c:ee()<br />   (if (ssget)<br />       (vlax-for obj<br />         (vla-get-ActiveSelectionSet<br />           (vla-get-ActiveDocument (vlax-get-acad-object))<br />         )        <br />         (if (zerop (vla-get-ArrowheadType obj))<br />           ((vla-put-ArrowheadType obj 3) (vla-put-ArrowheadSize obj 1))<br />           ((vla-put-ArrowheadType obj 0) (vla-put-ArrowheadSize obj 2))<br />         )<br /> )))