大侠们帮个忙，用LISP如何实现尺寸标注箭头形式的修改功能

lliushaojiang · 发表于 2014-10-15 21:28:58

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

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

×

大侠们帮个忙，用LISP如何实现尺寸标注箭头形式的修改功能，见下图！

lucas3 · 发表于 2014-10-18 13:33:13

lliushaojiang 发表于 2014-10-18 11:29
怎么无法运行？提示：命令: tt ; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "CECOLOR" nil，是什 ...

我很少上QQ的,只是偶尔登录一下

跟你打包好了, 运行命令dimarr , 加载程序后会有提示的

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:dimarr.rar
下载次数:57 文件大小:12.19 KB
下载权限: 学生以上 [免费赚D豆]

XDSoft · 发表于 2014-10-15 21:38:44

修改前后，你 list 下尺寸实体，看看显示的有什么变化。

newer · 发表于 2014-10-15 21:44:55

两种改法，一种是修改尺寸样式，这样，所有引用这个样式的尺寸都要变化。

另外一种是设置单独尺寸的override , 你查看下DXF手册，看看箭头的几个变量名，把他们加到尺寸的扩展实体数据里面即可。添加扩展数据你可以用 entmod

st788796 · 发表于 2014-10-15 21:48:33

dimarrow1 / 2? dimblk1/2 ?

lucas3 · 发表于 2014-10-15 23:11:59

楼主不是已经有程序了吗?

Free-Lancer · 发表于 2014-10-16 09:52:49

本帖最后由 Free-Lancer 于 2014-10-16 09:59 编辑

这个用 ODCL 更直观

(defun c:tt (/ strl)
(defun _changeArrowType (mod val)
(if (ssget '((0 . "DIM*")))
(foreach x (fy:cset->objs)
(vlax-put x mod val)
)
)
(princ)
)
(defun c:arrow_form1_arrow1_OnSelChanged (ItemIndexOrCount Value /)
(_changeArrowType "ArrowHead1Type" ItemIndexOrCount)
(princ)
)
(defun c:arrow_form1_arrow2_OnSelChanged (ItemIndexOrCount Value /)
(_changeArrowType "ArrowHead2Type" ItemIndexOrCount)
(princ)
)
(setq strl
'("YWt6A8EPAACXbnclBuKTKEUxKj9qgFBSxf3SNjbOz//27zpfzlG+9Lo5377caLi6Gs1RX8Q+PF84"
"dJPbzix1dQH+hjYCWuikFplxjnkS3B4Z3czgTdJFiQDsW7Q4HZowkKCHmEKZ4odmiCqoVdbAUydS"
"tua5XEJ+kVw+1TA6qmW9dpxMULTJ9nyET/banuqybAhTX83i0vO0lrnOnlrMjJgbSFKh6habSTwr"
"qh0oQmrSOzBKDBwtaoPqi+Pu78zAK9jPC2jpyVbVB69l7KHGOlTeexOUqlhUcYi/BhY8i68T4+5T"
"Ux4oErJlCoDuKiuyZ/qeBbILlbRAG48ZVHYp39kPsku8iXYBXQL7jlW3pmHRrbtlLYLgiml3SQW/"
"AiFGBfXhbwAwhlefG4wB+Y5pvCl3+cNegJSU1/+ygD5NvO/nDBcbVw8AU0MkShF9TOZA6SXhshId"
"JXvKl7ReSUiSsJWY0xP81xNNkyLVSR0iZeRrMa3I+OIAP5uTWqE7pZrIsHss8zCeUsSb4+9tIuyv"
"8x2MRXMN15i5uE2N+hkVBwbhi0YgWAf3zpFGC1fAMwdgOUrumUekKenNqZznV/nFGxiIEErd2A3t"
"kiFt4zBFhYX0RXyEQwdi/xUdePDVZ4al5T9kDSxB06Av1xworsqDNRpQLng3tN75cKf+8X7E3Qsp"
"PyXfS9SWFLMAvYF5jIm3C7aUATpa/gW3gP7R3FThWgL0dkQwBvyON7yO/GMZ7GPabZ9do3OGNhmx"
"N0Osuwg2qQasozvuCsnOQ6wLngk3aaVf470B/AoUzyUpeABco8aqQBmFzoszuYG++vZaQCyIV3B5"
"PPtwUR8sURatPGkF6iSA5iSA+siG9ophbCBfgp5hX4U1KcErq5FazGPcQsnEL+eyQIzojwnXHI2L"
"Lxt6c960US49navWr9BVi9bPiwPKExRSkS69URFeS0jDiZQuHXKBSUvY1KGRLuOi1w=="
)
)
(dcl_project_import strl)
(dcl_form_show arrow_form1)
(princ)
)

(defun c:tt (/ strl) 
  (defun _changeArrowType (mod val) 
    (if        (ssget '((0 . "DIM*"))) 
      (foreach x (fy:cset->objs) 
        (vlax-put x mod val) 
      ) 
    ) 
    (princ) 
  ) 
  (defun c:arrow_form1_arrow1_OnSelChanged (ItemIndexOrCount Value /) 
    (_changeArrowType "ArrowHead1Type" ItemIndexOrCount) 
    (princ) 
  ) 
  (defun c:arrow_form1_arrow2_OnSelChanged (ItemIndexOrCount Value /) 
    (_changeArrowType "ArrowHead2Type" ItemIndexOrCount) 
    (princ) 
  ) 
  (setq        strl 
         '("YWt6A8EPAACXbnclBuKTKEUxKj9qgFBSxf3SNjbOz//27zpfzlG+9Lo5377caLi6Gs1RX8Q+PF84" 
           "dJPbzix1dQH+hjYCWuikFplxjnkS3B4Z3czgTdJFiQDsW7Q4HZowkKCHmEKZ4odmiCqoVdbAUydS" 
           "tua5XEJ+kVw+1TA6qmW9dpxMULTJ9nyET/banuqybAhTX83i0vO0lrnOnlrMjJgbSFKh6habSTwr" 
           "qh0oQmrSOzBKDBwtaoPqi+Pu78zAK9jPC2jpyVbVB69l7KHGOlTeexOUqlhUcYi/BhY8i68T4+5T" 
           "Ux4oErJlCoDuKiuyZ/qeBbILlbRAG48ZVHYp39kPsku8iXYBXQL7jlW3pmHRrbtlLYLgiml3SQW/" 
           "AiFGBfXhbwAwhlefG4wB+Y5pvCl3+cNegJSU1/+ygD5NvO/nDBcbVw8AU0MkShF9TOZA6SXhshId" 
           "JXvKl7ReSUiSsJWY0xP81xNNkyLVSR0iZeRrMa3I+OIAP5uTWqE7pZrIsHss8zCeUsSb4+9tIuyv" 
           "8x2MRXMN15i5uE2N+hkVBwbhi0YgWAf3zpFGC1fAMwdgOUrumUekKenNqZznV/nFGxiIEErd2A3t" 
           "kiFt4zBFhYX0RXyEQwdi/xUdePDVZ4al5T9kDSxB06Av1xworsqDNRpQLng3tN75cKf+8X7E3Qsp" 
           "PyXfS9SWFLMAvYF5jIm3C7aUATpa/gW3gP7R3FThWgL0dkQwBvyON7yO/GMZ7GPabZ9do3OGNhmx" 
           "N0Osuwg2qQasozvuCsnOQ6wLngk3aaVf470B/AoUzyUpeABco8aqQBmFzoszuYG++vZaQCyIV3B5" 
           "PPtwUR8sURatPGkF6iSA5iSA+siG9ophbCBfgp5hX4U1KcErq5FazGPcQsnEL+eyQIzojwnXHI2L" 
           "Lxt6c960US49navWr9BVi9bPiwPKExRSkS69URFeS0jDiZQuHXKBSUvY1KGRLuOi1w==" 
          ) 
  ) 
  (dcl_project_import strl) 
  (dcl_form_show arrow_form1) 
  (princ) 
)

Free-Lancer · 发表于 2014-10-16 10:03:44

Odcl 的 ArrowType Index 有些和 ActiveX 不是对应关系

lucas3 · 发表于 2014-10-16 13:35:21

Free-Lancer 发表于 2014-10-16 09:52
这个用 ODCL 更直观

大师, 怎么突然用起ODCL呢? 您的DCL功力那么深厚, 能不能出DCL版本的?

Free-Lancer · 发表于 2014-10-16 13:45:53

lucas3 发表于 2014-10-16 13:35
大师, 怎么突然用起ODCL呢? 您的DCL功力那么深厚, 能不能出DCL版本的?

就功能而言选择后ctrl+1 特性管理器即可批量更改，Dcl也写了一个，用来测试dcl:radioaction，调试好后会发上来

lucas3 · 发表于 2014-10-16 16:04:08

Free-Lancer 发表于 2014-10-16 13:45
就功能而言选择后ctrl+1 特性管理器即可批量更改，Dcl也写了一个，用来测试dcl:radioaction，调试好后会 ...

谢谢大师!{:soso_e183:}

Free-Lancer · 发表于 2014-10-16 16:46:49

lucas3 发表于 2014-10-16 16:04
谢谢大师!

试试这个

(defun c:tt (/ strl fn id klst1 klst2)
(defun _changeArrowType (mod)
(if (= mod 1)
(vlax-for x (fy:cset)
(vla-put-ArrowHead1Type x (eval (read key1)))
)
(vlax-for x (fy:cset)
(vla-put-ArrowHead2Type
x
(eval (read (vl-string-left-trim "F" key2)))
)
)
)
(vla-regen (fy:acdoc) acActiveViewport)
)
(or key1 (setq key1 "acArrowDefault"))
(or key2 (setq key2 "FacArrowDefault"))
(fy:begin)
(if (ssget '((0 . "DIM*")))
(progn
(setq strl '("temp:dialog{"
"label = \"Dim Arrow Stype\";"
": row {"
" :boxed_radio_column {"
" :radio_button {label = \"Default\"; key = \"acArrowDefault\";}"
" :radio_button {label = \"Dot\"; key = \"acArrowDot\";}"
" :radio_button {label = \"None\"; key = \"acArrowNone\";}"
" }"
" :boxed_radio_column {"
" :radio_button {label = \"Default\"; key = \"FacArrowDefault\";}"
" :radio_button {label = \"Dot\"; key = \"FacArrowDot\";}"
" :radio_button {label = \"None\"; key = \"FacArrowNone\";}"
" }}"
" ok_cancel;}"
)
klst1 '("acArrowDefault" "acArrowDot" "acArrowNone")
klst2 '("FacArrowDefault" "FacArrowDot" "FacArrowNone")
fn (xd::dcl:make strl)
id (xd::dcl:load fn "temp")
)
(xd::dcl:radioaction
'(klst1 klst2)
'(key1 key2)
'("_changeArrowType 1" "_changeArrowType 2")
)
(xd::dcl:start id fn)
)
)
(fy:end)
(princ)
)

(defun c:tt (/ strl fn id klst1 klst2) 
  (defun _changeArrowType (mod) 
    (if        (= mod 1) 
      (vlax-for        x (fy:cset) 
        (vla-put-ArrowHead1Type x (eval (read key1))) 
      ) 
      (vlax-for        x (fy:cset) 
        (vla-put-ArrowHead2Type 
          x 
          (eval (read (vl-string-left-trim "F" key2))) 
        ) 
      ) 
    ) 
    (vla-regen (fy:acdoc) acActiveViewport) 
  ) 
  (or key1 (setq key1 "acArrowDefault")) 
  (or key2 (setq key2 "FacArrowDefault")) 
  (fy:begin) 
  (if (ssget '((0 . "DIM*"))) 
    (progn 
      (setq strl  '("temp:dialog{" 
                    "label = \"Dim Arrow Stype\";" 
                    ": row {" 
                    "  :boxed_radio_column {" 
                    "    :radio_button {label = \"Default\"; key = \"acArrowDefault\";}" 
                    "    :radio_button {label = \"Dot\"; key = \"acArrowDot\";}" 
                    "    :radio_button {label = \"None\"; key = \"acArrowNone\";}" 
                    "  }" 
                    "  :boxed_radio_column {" 
                    "    :radio_button {label = \"Default\"; key = \"FacArrowDefault\";}" 
                    "    :radio_button {label = \"Dot\"; key = \"FacArrowDot\";}" 
                    "    :radio_button {label = \"None\"; key = \"FacArrowNone\";}" 
                    "  }}" 
                    "  ok_cancel;}" 
                   ) 
            klst1 '("acArrowDefault" "acArrowDot" "acArrowNone") 
            klst2 '("FacArrowDefault" "FacArrowDot" "FacArrowNone") 
            fn          (xd::dcl:make strl) 
            id          (xd::dcl:load fn "temp") 
      ) 
      (xd::dcl:radioaction 
        '(klst1 klst2) 
        '(key1 key2) 
        '("_changeArrowType 1" "_changeArrowType 2") 
      ) 
      (xd::dcl:start id fn) 
    ) 
  ) 
  (fy:end) 
  (princ) 
)

在“开源函数库” 下载 xd::dcl:radioinit 和 xd::dcl:radioaction 两个更新后的函数

lucas3 · 发表于 2014-10-16 23:42:26

本帖最后由 lucas3 于 2014-10-16 23:44 编辑

Free-Lancer 发表于 2014-10-16 16:46
试试这个

谢谢大师! 测试了下, 修改一个标注, 箭头样式两端选择Dot 后, 再次运行时, Dot 默认为选中状态, 再去修改其它标注, 确定后,没有变化, 必须重新设回default 后,再将选择dot 修改才有效, 看动图:

另外,加上一个箭头大小修改是不是更方便一些?

Free-Lancer · 发表于 2014-10-17 07:51:41

lucas3 发表于 2014-10-16 23:42
谢谢大师! 测试了下, 修改一个标注, 箭头样式两端选择Dot 后, 再次运行时, Dot 默认为选中状态, 再去修 ...

这个涉及到控件定义默认值和回调的关系，如果控件既设定默认值同时又给控件定义了回调函数，那这个默认控件的回调在没有切换一次时是不会触发的，解决方法有两种

1 不定义默认只定义回调，这样用户点击时触发回调函数执行动作

2 同时定义默认和回调函数，那么在对话框按确定后获取控件值并执行动作

至于这个应用，重新下载 xd::dcl:radioaction 支持不设定默认值的 radio 组动作定义，把

(or key1 (setq key1 "acArrowDefault"))
(or key2 (setq key2 "FacArrowDefault"))

这两行注释或删除，同时将 key1 key2 设为局部变量

lucas3 · 发表于 2014-10-17 08:58:06

Free-Lancer 发表于 2014-10-17 07:51
这个涉及到控件定义默认值和回调的关系，如果控件既设定默认值同时又给控件定义了回调函数，那这个默认控 ...

谢谢大师,现在好用了, 只是现在箭头类型中是" 点" , 我想改成"小点", 要怎么改呢?

Free-Lancer · 发表于 2014-10-17 09:20:11

lucas3 发表于 2014-10-17 08:58
谢谢大师,现在好用了, 只是现在箭头类型中是" 点" , 我想改成"小点", 要怎么改呢?

对照手册自己修改 key

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

[求助] 大侠们帮个忙，用LISP如何实现尺寸标注箭头形式的修改功能

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

评分