SSXX判断点中了多段线中的圆弧或直边bonny波总于2023-11-26明经结合院长xyp全能标...

寒潮大冬瓜

升级兼容直线三维多段线(POLYLINE)SQD判断点中了多段线中的圆弧或直边bonny波总于2023-11-26明经结合院长xyp全能标注黄明儒函数20241110
SSXX判断点中了多段线中的圆弧或直边bonny波总于2023-11-26明经结合院长xyp全能标注黄明儒函数20240923
→自动变化的全局→标注永远不会超过线段→独立图层→独立样式！
→未来继续升级直线支持椭圆样条曲线
;        ;;(command "style" "_LINEAR2024" "sysz,syfs" "0" "0.5" "0" "n" "n""n"));【创建标注文字样式】
;        (command "style" "宋体0.5" "宋体" "0" "0.5" "0" "n" "n""n"));【创建标注文字样式】
(defun by_wy()
        (princ "\n快速新建-_LINEAR标注样式:la2024")
  (if (not (tblsearch "style" la2024));la2024
                ;(if (not (tblsearch "style" "_LINEAR2024"));la2024
                ;;(command "style" "_LINEAR2024" "sysz,syfs" "0" "0.5" "0" "n" "n""n"));【创建标注文字样式】
                (command "style" "宋体0.5" "宋体" "0" "0.5" "0" "n" "n""n")
        );【创建标注文字样式】
  ;(setvar "cmdecho" 0)

;;164.18 [功能] 多段线所点击子段的两端点列表-黄明儒
;;示例(HH:PickSegEndPt(car(setq en(entsel)))(cadr en))
(defun HH:PickSegEndPt(obj p / pp n)
        (setq        pp(vlax-curve-getclosestpointto obj(trans p 1 0))
                n(fix(vlax-curve-getparamatpoint obj pp))