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

谢谢分享，支持一下
页: [1]
查看完整版本: 动态弧形标注