添加了2个参数
cw:T/nil；顺时针/逆时针
方框：T/nil；如果是T，则用方框标记
；ppdim。lsp，关联距离标签（自定义尺寸对齐）http://www.cadtutor.net/forum/showthread.php?89363-多边形顶点之间的自动距离&p=612627#post612627（defun-ppdim（p1-p2cw-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”“DimLine1Suppress”“DimLine2Suppress”； Updated as OP request, put text outside polygon
added 2 arguments
cw : T / nil ; cw/ccw
box : T / nil ; if T, Label with box
;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 cw box / mp sz mx ); 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" "DimLine1Suppress" "DimLine2Suppress" ;
页:
1
[2]