修改引线箭头样式

yangist

请问怎么用lisp实现以下步骤:
1.图中现有最后生成的引线一根,箭头样式为: "."
2.选中该引线
3.在特性里手动修改箭头样式为: "小点" or "DotSmall"
4.结束
恳请高手指教!~~~
万分感谢!
祝:新年洋洋得意,喜气洋洋~

sutai

大过年的，拿了一半家当出来……不容易啊~~~
(defun c:tt ()
  (setq od (getvar "dimstyle"))
  (setvar "dimsah" 1)
  (setvar "dimblk1" "_dotsmall")  ;箭头1
  (setvar "dimblk2" "_dotsmall")  ;箭头2
  (command "_.dimstyle" "a" (entlast) "")
  (command "_.dimstyle" "r" od)
  )

菜卷鱼

引线标注之前可以设置：

(setvar 'dimldrblk "小点")
(setvar 'dimldrblk ".")
(setvar 'dimldrblk "空心闭合")
。。。。。。。。。。。。。。