求高手帮忙写个双击标注修改尺寸的autolisp程序

liuzhaoyzz · 发表于 2013-4-7 06:55:22

wowan1314 发表于 2013-4-6 16:28
楼主就是想要个双击管理器的程序吧？

可以明确的告诉楼主论坛上有几个现成的。就看你找不找了或愿不愿自 ...

http://bbs.mjtd.com/thread-91759-1-1.html
双击反应器管理，这个加载不了，提示错误。
我在cad2004下面加载mkdbckset.lsp，提示命令: ; 错误: no function definition: VLR-MOUSE-REACTOR，然后ww命令调不出来，请问下怎么办？

liuzhaoyzz · 发表于 2013-4-7 07:03:42

http://bbs.mjtd.com/forum.php?mo ... &fromuid=395374
caiqs，师兄，qq361865648
双击编辑标注.rar (26.36 KB, 下载次数: 35)
这个程序，每次打开程序都要有个logo，而且双击修改后标注线仍然处于选中状态，还不如直接ed。

liuzhaoyzz · 发表于 2013-4-7 11:01:36

(vl-load-com)加到程序前面之后，可以载入程序了，ww也可以调出来设置，但是双击标注还是调出来的是属性对话框，不是ddedit，我也设置选择了双击有效了。
请教。

liuzhaoyzz · 发表于 2013-4-7 11:06:46

对齐标注可以直接双击修改了，但是线性标注不行。

meja · 发表于 2013-6-18 13:45:09

呵呵，没找对程序，我都用了10几年了

香田里浪人 · 发表于 2013-6-23 20:58:43

(defun C:test (/ old_cmd index ss ent)
  (princ "\n选择要修改的尺寸线:")
  (if (not (setq ss (ssget '((0 . "*dim*")))))
(exit)
  )
  (setq index 0)
(setq txt (getstring "\n输入新尺寸值:"))
  (repeat (sslength ss)
(setq ent (entget (ssname ss index))
index (+ 1 index)
)
(entmod (subst (cons 1 (strcat txt "m")) (assoc 1 ent) ent)
)
  )
)

幸福是真 · 发表于 2013-9-21 15:30:39

尺寸双击本来就是编辑状态的啊

寒林清远 · 发表于 2013-9-21 16:55:15

香田里浪人发表于 2013-6-23 20:58
(defun C:test (/ old_cmd index ss ent)
(princ "\n选择要修改的尺寸线:")
(if (not (setq ss (ssge ...

文不对题啊……

5cllovely · 发表于 2013-9-21 18:49:00

16L的程序可以修改尺寸标注值，而且比cad的ed命令方便，
(princ "\n选择要修改的尺寸线:")

(entmod (subst (cons 1 (strcat txt "m")) (assoc 1 ent) ent)
这句话把(strcat txt "m")改为txt，否则把标注加m了

liuzhaoyzz · 发表于 2015-2-12 08:46:06

16楼的和19楼的说的不行啊？cad2004加载后调出来的是属性对话框，不是直接ed的效果。

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

求高手帮忙写个双击标注修改尺寸的autolisp程序

点评