弧长标注、直线标注、样条曲线长度标注.....

自贡黄明儒

我使用的AutoCAD2004,09太慢了。
我自己为2004编写了一个标注，在09下也可用

apricot125

学习了，modemacro用法，LT：还不懂

创意年华

不错啊！支持一下

461045462

收藏了

享受一下楼主的分享

请问：不知弧长标注时能否做到没有圆心的一个小点？

望指教

谢谢楼主

自贡黄明儒

本程序只是调用了_dimaligned和 _dimangular,然后计算两点间长度,至于你说的那个小点,可能是存在的

461045462

 

谢谢楼主

感觉还好用

 

lrd1861

收藏了 感谢分享

明_明

"样条曲线长度标注"，太感谢了

zgssd

<img alt="" src="http://bbs.mjtd.com/Skins/default/topicface/face1.gif"/>试了一下，提示选择直线、圆弧、圆标注，不能标注样条曲线

自贡黄明儒

对于样条曲线相交的两条线,如果不平行,则调用 _dimangular,是可以显示两交点之间距离的

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;弧长标注
(defun C:CC ()
  (setvar "modemacro" "自贡运机集团")
  (lt:error-init (list nil 0 nil))
  (HH:cc)
  (lt:error-restore)
  (gc)     ;释放内存
  (princ
    "\n自贡运机集团 黄明儒:We must do the best with what God gave us!"
  )
  (princ)
)

;;;;;;;;;;;;;;;;;;;弧长标注
(defun HH:cc ( / ANG1 ANG2 BOOL DXF ENT1 NEW OBJ PARAM POINT1 POINT2 VAR1 VAR2)

  (setvar "cmdecho" 0)   ;不显示命令提示
  (setq var1 (getvar "osmode"))
  (setq var2 (getvar "autosnap"))
  (setvar "autosnap" 39)
  (vl-load-com)
  (setq bool T)
  (while bool
    (setq ent1 (entsel "\n>点击欲标注长度的曲线:"))
    (if ent1
      (setq bool nil)
      (princ "\n你点击的不是曲线,请点击曲线:")
    )
  )
  (setq obj (car ent1))
  (setq obj (vlax-ename->vla-object obj))

  (setvar "osmode" 33)   ;交点或者端点
  (setq point1 (getpoint "\n>>取得标注的第1个交点:"))
  (setq param (vlax-curve-getParamAtPoint obj point1))
  (setq ang1
  (angle (setq point1 (vlax-curve-getpointatparam obj param))
  (mapcar '+ point1 (vlax-curve-getFirstDeriv obj param))
  )
  )
  (setq point2 (getpoint "\n>>>取得标注的第2个交点:"))
  (setq param (vlax-curve-getParamAtPoint obj point2))
  (setq ang2
  (angle (setq point2 (vlax-curve-getpointatparam obj param))
  (mapcar '+ point2 (vlax-curve-getFirstDeriv obj param))
  )
  )
  (princ "\n>>>>标注放置点:")
  (setq bool (= ang1 ang2))
  (if bool
    (command "dimaligned"
      point1
      point2
      pause
    )
    (command "dimangular"
      point1
      point2
      pause
    )
  )
  (setq dxf (entget (entlast)))
  (setq new (- (vlax-curve-getDistAtPoint obj point1)
        (vlax-curve-getDistAtPoint obj point2)
     )
  )
  (setq new (abs new))
  (if (<= (abs (- (cdr (assoc 42 dxf)) new)) 0.001)
    (setq bool t)
    (setq bool nil)
  )
  (setq new (rtos new 2 (getvar "dimdec")))
  (if bool
    (setq new (strcat "{\\fSimSun|b0|i0|c134|p2;}" new))
    (setq new (strcat "{\\Fgdt.shx;^}\\P" new))
  )
  (setq dxf (subst (cons 1 new) (assoc 42 dxf) dxf))
  (entmod dxf)

  (setvar "autosnap" var2)
  (setvar "osmode" var1)

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;弧长标注

自贡黄明儒

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;弧长标注
(defun C:CC ()
  (setvar "modemacro" "自贡运机集团")
  (lt:error-init (list nil 0 nil))
  (HH:cc)
  (lt:error-restore)
  (gc)                                        ;释放内存
  (princ
    "\n自贡运机集团 黄明儒:We must do the best with what God gave us!"
  )
  (princ)
)

;;;;;;;;;;;;;;;;;;;弧长标注
(defun HH:cc (/             ANG1   ANG2   BOOL          DXF         E        E1     ENTS
              H             N            NEW           OBJ          P1         P3        PARAM  PAUSE
              POINT1 POINT2 STD1   VAR1          VAR2
             )

  (setvar "cmdecho" 0)                        ;不显示命令提示
  (setq var1 (getvar "osmode"))
  (setq var2 (getvar "autosnap"))
  (setvar "autosnap" 39)
  (setvar "osmode" 33)                        ;交点或者端点
  (vl-load-com)

  (setq std1 (list ()))                        ;空表
  (setq point1 (getpoint "\n>取得标注的第1个交点:"))
  (setq        h (* (/ (getvar "viewsize") (cadr (getvar "screensize")))
             (getvar "pickbox")
          )
  )
  (setq        p1 (mapcar '- point1 (list h h 0.))
        p3 (mapcar '+ point1 (list h h 0.))
  )
  (setq        ents (ssget "C" p1 p3)
        n    0
  )
  (repeat (sslength ents)
    (setq e (ssname ents n))
    (setq e1 (entget e))
    (if        (not (= "DIMENSION" (cdr (assoc 0 e1))))
      (setq std1 (append std1 (list e)))
    )
    (setq n (1+ n))
  )
  (setq point2 (getpoint "\n >>取得标注的第2个交点:"))
  (setq        p1 (mapcar '- point2 (list h h 0.))
        p3 (mapcar '+ point2 (list h h 0.))
  )
  (setq        ents (ssget "C" p1 p3)
        n    0
  )
  (setq bool T)
  (while bool
    (setq obj (ssname ents n))
    (if        (setq new (member obj std1))
      (setq bool nil)
    )
    (setq n (1+ n))
  )
  (setq obj (vlax-ename->vla-object obj))
  (setq param (vlax-curve-getParamAtPoint obj point1))
  (setq        ang1
         (angle        (setq point1 (vlax-curve-getpointatparam obj param))
                (mapcar '+ point1 (vlax-curve-getFirstDeriv obj param))
         )
  )

  (setq param (vlax-curve-getParamAtPoint obj point2))
  (setq        ang2
         (angle        (setq point2 (vlax-curve-getpointatparam obj param))
                (mapcar '+ point2 (vlax-curve-getFirstDeriv obj param))
         )
  )
                                        ;(princ "\n>>>>标注放置点:")
  (setvar "autosnap" var2)
  (setvar "osmode" var1)
  (setq bool (getpoint "\n  >>>>标注尺寸放置点:"))
  (if (= ang1 ang2)
    (command "dimaligned" point1 point2 bool)
    (command "dimangular" point1 point2 bool)
  )
  (setq dxf (entget (entlast)))
  (setq        new (- (vlax-curve-getDistAtPoint obj point1)
               (vlax-curve-getDistAtPoint obj point2)
            )
  )
  (setq new (abs new))
  (if (<= (abs (- (cdr (assoc 42 dxf)) new)) 0.001)
    (setq bool t)
    (setq bool nil)
  )
  (setq new (rtos new 2 (getvar "dimdec")))
  (if bool
    (setq new (strcat "{\\fSimSun|b0|i0|c134|p2;}" new))
    (setq new (strcat "{\\Fgdt.shx;^}\\P" new))
  )
  (setq dxf (subst (cons 1 new) (assoc 42 dxf) dxf))
  (entmod dxf)

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;弧长标注

轮廓线

请问楼主  CC命令可否标注一段整体弧长中的两点间的距离