pol之间的自动距离

marko_ribar · 发表于 2022-7-5 23:11:11

更新为OP请求，将文本置于多边形外
添加了2个参数
cw:T/nil；顺时针/逆时针
方框：T/nil；如果是T，则用方框标记
[code]；ppdim。lsp，关联距离标签（自定义尺寸对齐）http://www.cadtutor.net/forum/showthread.php?89363-多边形顶点之间的自动距离&p=612627#post612627（defun-ppdim（p1-p2[color=“red”]cw-box/mp-sz-mx）；v1.1；hanhphuc 2014年10月31日（setq vs’（nil（/（getvar’viewsize）（cadr（getvar’screensize）））sz（*0.05（distance p1 p2））mp（mapcar’（λ（a b）（*0.5（+a b）））p1 p2））（vl cmdf“_dimagned”p1 p2 mp）（'（（obj）（mapcar）（λ（a b）（vlax put obj a b））'（“Arrowhead1Type”“Arrowhead2Type”“extensionlineextend”“extensionlineoffset”“TextHeight”“textine”“VerticalTextPosition”“TextGap”[color=“red”]“DimLine1Suppress”“DimLine2Suppress”；

hanhphuc · 发表于 2022-7-5 23:13:54

hanhphuc · 发表于 2022-7-5 23:20:35

Updated as OP request, put text outside polygon
added 2 arguments
cw : T / nil ; cw/ccw
box : T / nil ; if T, Label with box

[code];ppdim.lsp , assosiative distance label (customized dimAligned)http://www.cadtutor.net/forum/showthread.php?89363-Automatic-distance-between-polygon-vertices&p=612627#post612627(defun ppdim ( p1 p2 [color="red"]cw box / mp sz mx ); [color="red"]v1.1;hanhphuc 31/10/2014 (setq vs '(nil (/ (getvar 'viewsize) (cadr (getvar 'screensize))))sz (* 0.05 (distance p1 p2)) mp (mapcar '(lambda (a b) (* 0.5 (+ a b))) p1 p2)) (vl-cmdf "_dimaligned" p1 p2 mp) ('((obj) (mapcar '(lambda (a b) (vlax-put obj a b)) '("Arrowhead1Type" "Arrowhead2Type" "extensionlineextend" "extensionlineoffset""TextHeight" "TextInside" "VerticalTextPosition" "TextGap" [color="red"]"DimLine1Suppress" "DimLine2Suppress" ;

[编程交流] pol之间的自动距离

发表回复

精选推荐