动态弧形标注

ljxkm · 发表于 2019-9-25 09:26:09

本帖最后由 ljxkm 于 2019-9-25 17:48 编辑

;;;;;;动态弧形标注程序
;;;;;;设计者---jixiangluo
;;;;;;命令：ljx-rdim
;;;;;;要求：在欲标注弧上选取两点，两点必须在同一段弧上
;;;;;;适用于标注："ARC"、 "CIRCLE"及"LWPOLYLINE"上的圆弧
;;;;;;2019年9月22日最后修改
(defun c:ljx-rdim ( / dim_sc dim_ac dtlst pt1 pt2 pt3 r L Ltxt)
  (vl-load-com)
  (setq dim_sc (getvar "dimlfac")
      dim_ac (getvar "dimdec")
  )
  (setq dtlst (get-arcpoint))
  (setq pt1 (car dtlst)
      pt2 (cadr dtlst)
      pt3 (nth 2 dtlst)
      r (nth 3 dtlst)
      L (nth 4 dtlst)
      Ltxt (rtos (* L dim_sc) 2 dim_ac)
  )
  (dyemarcdim pt1 pt2 pt3 Ltxt)
  (princ)
)

ljxkm · 发表于 2019-9-25 17:49:30

ARC部分有点问题，更新了一下，可重新下载啊

ketxu · 发表于 2019-10-1 01:49:14

Thanks for sharing ^^

尘缘一生 · 发表于 2019-10-1 09:18:17

本帖最后由尘缘一生于 2019-10-1 09:44 编辑

entmake方式建标注，标注文字高度，和箭头大小，是怎么控制的？
DIMTXT,DIMASZ 怎么控制不了？

ljxkm · 发表于 2019-10-4 11:47:38

本帖最后由 ljxkm 于 2019-10-4 20:18 编辑

尘缘一生发表于 2019-10-1 09:18
entmake方式建标注，标注文字高度，和箭头大小，是怎么控制的？
DIMTXT,DIMASZ 怎么控制不了？

我试了一下，entmake创建标注，是不认'(41 . 2.5) '(140 . 3.5)，前一个为DIMASZ即箭头大小，后一个为DIMTXT即标注文字高度，这应该是在entmake创建标注样式时的控制项，故我觉得标注文字高度箭头形式大小等还是在标注样式里设置好，如确实特别需要我建议采用以下方式：
先取得既有标注样式的值：(setq olddimtxt (getvar "DIMTXT")
                                                olddimasz (getvar "DIMASZ")
                                       )
设置箭头大小及文字高度：  (setvar "DIMTXT" newdimtxt)
                                          (setvar "DIMASZ" newasz)
执行动态标注命令：          (ljx-rdim)
恢复标注样式的相应值： (setvar "DIMTXT" olddimtxt);;;;恢复
                                       (setvar "DIMASZ" olddimasz);;;;恢复
  这只是我的看法啊，肯定还有好的办法，知道的还望贴出来大家学习啊

yaojing38 · 发表于 2023-2-9 10:00:51

谢谢，分享

技术工作室 · 发表于 2023-11-29 10:04:38

谢谢分享，支持一下

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

[源码] 动态弧形标注

本帖子中包含更多资源

评分