SSXX判断点中了多段线中的圆弧或直边bonny波总于2023-11-26明经结合院长xyp全能标...
本帖最后由 寒潮大冬瓜 于 2024-11-10 17:33 编辑升级兼容直线三维多段线(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))
页:
[1]