ht1480 发表于 2023-2-15 17:26:59

文本标注封闭多段线的边长和面积

首先感谢前辈们的函数。这个是用前辈的函数东拼西凑起来的功能。

还需要完善，角度相同的两段边长可以合并标注，两节点重合的多余节点删除，异形的图形面积不在圈内等等。
小白一个，凑个贴子数
(vl-load-com)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;函数部分
(setq *ACAD*(vlax-get-acad-object)
      *DOC*   (vla-get-ActiveDocument *ACAD*)
      *DOCS*(vla-get-Documents *ACAD*)
      *MS*    (vla-get-modelSpace *DOC*))
(defun C:bbc( / osmbak all pianyiliang zigao i ent obj1 lst n m p1 p2 an ds zxd bpt js)
(setvar "dimzin" 0)
(setq osmbak(getvar "osmode"))
(setvar "osmode" 0 )
(setq all (ssget '((0 . "LWPOLYLINE,POLYLINE"))));;获取多线段图元
(setq pianyiliang 0.30);;设置偏移量
(setq zigao 0.5);;;设置字高
(LayerExist "bc");;;创建bc图层
(setq i 0)
(repeat (sslength all)
(setq ent (ssname all i));;取得图元名
   (setq obj1 (vlax-ename->vla-object ent));;;多线段的对象属性
                  (entmake
                  (list '(0 . "TEXT")
                  (cons 1 (rtos (vla-get-area obj1) 2 2));;;(vla-get-area obj)提取到面积属性
                  (cons 10 (GetCentroid ent));;;(GetCentroid ent)质心点坐标，未采用几何中心
                  (cons 40 (* zigao 1.3))
                  (cons 11 (GetCentroid ent))
                  (cons 72 1)
                  (cons 73 2)
                  (cons 7 "宋体")
                  (cons 8 "bc")
                  ;(cons 50 an)   
                  ))
         (setq lst (mqb:getpt ent));;取得坐标点表
   (setq n 0)
   (setq m(length lst))
    (repeat m
;;;;(nth(rem(+ i(setq m(length lst)))m)lst)取列表第i个元素,主要用在首尾衔接
       (setq p1 (nth(rem(+ n m)m)lst))
       (setq n(+ 1 n))
       (setq p2 (nth(rem(+ n m)m)lst))
       (setq an (angle p1 p2))
       (setq ds (distance p1 p2))
       (setq zxd (polar p1 an (* ds 0.5)))
       (if (and (> an 1.62316)(< an 4.76475))
         (setq an(+ an pi))
       )
      (setq bpt(polar zxd (+ an 1.5708) pianyiliang))      
       (if (PtInPts lst bpt)
         (entmake
                  (list '(0 . "TEXT")
                  (cons 1 (rtos ds 2 2))
                  (cons 10 bpt)
                  (cons 40 zigao)
                  (cons 11 bpt)
                  (cons 72 1)
                  (cons 73 2)
                  (cons 7 "宋体")
                  (cons 8 "bc")
                  (cons 50 an)   
               ))
         (progn
          (setq bpt(polar zxd (- an 1.5708) pianyiliang))
            (entmake
                  (list '(0 . "TEXT")
                  (cons 1 (rtos ds 2 2))
                  (cons 10 bpt)
                  (cons 40 zigao)
                  (cons 11 bpt)
                  (cons 72 1)
                  (cons 73 2)
                  (cons 7 "宋体")
                  (cons 8 "bc")
                  (cons 50 an)   
               ))
         ))
      (setq js (append js (list an ds)))
    )
(setq i(+ 1 i))
)
;(setq js nil)
;( * 0.5 pi)
;(angtof "273")
;(angtos 2.3)
(setvar "osmode" osmbak)
)

;;146 [功能] 质心
;;示例 (GetCentroid (car(entsel)))
(defun GetCentroid (poly / AXERR CEN PL REG VA)
   (setq pl(vlax-ename->vla-object poly);;(setq pl (*En2Obj* poly)
      va (vlax-make-safearray vlax-vbObject '(0 . 0))
)
(vlax-safearray-put-element va 0 pl)
(setq axErr (VL-CATCH-ALL-APPLY 'vla-addregion (list *MS* va)))
(if (VL-CATCH-ALL-ERROR-P axErr)
    nil
    (progn
      (setq reg (car (vlax-safearray->list (vlax-variant-value axErr)))
            cen (vla-get-centroid reg)
      )
      (vla-delete reg)
      (vlax-safearray->list (vlax-variant-value cen))
    )
)
)

;;获取坐标函数图元名
(defun mqb:getpt(getptss / ptlst)
(setq ptlst (vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget getptss))))
)
;; 判断图层是否存在(不存在则创建);;(LayerExist "dim")
(defun LayerExist (LayerName)
(if (tblobjname "LAYER" LayerName) ;(tblsearch "LAYER" "3")也可判断图层3是否存在
    nil
    (entmake (list
      '(0 . "LAYER")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLayerTableRecord")
   ;'(6 . "CONTINUOUS") ;线型
   ;'(62 . 3)   ;颜色
      '(70 . 0);图层状态
      (cons 2 LayerName) ;图层名
      )
    )
)
)
;;以文字中心位置输出函数
(defun mqb:EntmakeText (PT STR Textheigh);以文字中心位置输出函数
(entmake
    (list '(0 . "TEXT")
   (cons 1 str)
   (cons 10 pt)
   (cons 40 Textheigh)
   (cons 11 pt)
   (cons 72 1)
   (cons 73 2)
   (cons 7 "宋体")   
    )
)
)
;;[功能] pt是否在点集包围范围内
(defun PtInPts (pts pt / P1 P2)
(setq
    pts (MAPCAR
   '(LAMBDA (p1 p2) (REM (- (ANGLE pt p1) (ANGLE pt p2)) PI))
   (CONS (LAST pts) pts)
   pts
)
)
(equal (ABS (APPLY '+ pts)) PI 1e-8)
)
;生成文字样式
(defun mqb:create-st (/ textstyles textstyle)
(setq textstyles (vla-get-textstyles *DOC*))
;(setq textstyle1 (vla-add textstyles "方正中等线_GBK"))
;(setq textstyle2 (vla-add textstyles "方正细等线简体"))
;(setq textstyle3 (vla-add textstyles "方正中等线简体"))
(setq textstyle4 (vla-add textstyles "宋体"))
;(vla-setfont textstyle1 "方正中等线_GBK" :vlax-false :vlax-false 1 0)
;(vla-setfont textstyle2 "方正细等线简体" :vlax-false :vlax-false 1 0)
;(vla-setfont textstyle3 "方正中等线简体" :vlax-false :vlax-false 1 0)
(vla-setfont textstyle4 "宋体" :vlax-false :vlax-false 1 0)
(setvar "cmdecho" 0)
(vl-cmdf "_.style" "" "" "" "1.0" "" "" "" "")
(princ)
)
(mqb:create-st)


(DEFUN C:6(/ osmbak txth p1 p2 p3 d1 a1 a2 p4 p5) ;单线标注
(command "layer" "m" "0" "")
                  (setq osmbak(getvar "osmode"))
                  (setvar "osmode" 1 )
                  ;(setq txth (getreal "输入注记字高："))
                  (setq p1 ( getpoint "\n      点一下起点: "))
                  (setq p2 ( getpoint p1 "\n       点一下终止点: "))
                  (setvar "osmode" 0)
                  (setq p3 ( getpoint p2 "\n   点取标注点:"))
                  (setq d1 ( distance p1 p2 ))
(setq txth(+ 0.25 (* d1 0.003)))
                  (setq a1 ( angle p2 p1 ))
                  (setq a2 ( angle p2 p3 ))
                  (setq p4 ( polar p1 (- a1 pi ) (/ d1 2 )))
                  (if ( <= a2 a1 )
                        ( setq p5 ( polar p4 ( - a1 (/ pi 2)) (+ 0.05 (* txth 0.5))))
                           )
                  (if ( >= a2 a1 )
                        ( setq p5 ( polar p4 ( + a1 (/ pi 2)) (+ 0.05 (* txth 0.5))))
                           )
(LayerExist "bc")
(entmake
    (list '(0 . "TEXT")
   (cons 1 (rtos d1 2 2))
   (cons 10 p5)
   (cons 40 txth)
   (cons 11 p5)
   (cons 72 1)
   (cons 73 2)
   (cons 7 "宋体")
   (cons 8 "bc")
   (cons 50 (- a1 pi))   
    ))
                  (setvar "osmode" osmbak)
                  (princ)
                  )data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATAAAAEKCAYAAACVGgk4AAAXI0lEQVR4Ae2dDZarIAxGuy4X5HpcTTczi2EOahStVayCCdw55z2tPwjJl5tIbft6vV6Of9gADaABoxrAcUYdR+Ih+aIBgheAowE0YFgDOM+w88jAVGG1awCAATA0gAbMasBsx2vPPIyf6gsNkHkAOBpAA4Y1gPMMO48MTBVWuwYAGABDA2jArAbMdrz2zMP4qb7QAJkHgKMBNGBYAzjPsPPIwFRhtWsAgAEwNIAGzGrAbMdrzzyMn+oLDZB5ADgaQAOGNYDzDDuPDEwVVrsGABgAQwNowKwGzHa89szD+Km+0ACZB4CjATRgWAM4z7DzyMBUYbVrAIABMDSABsxqwGzHa888jJ/qCw2QeQA4GkADhjWA8ww7jwxMFVa7BgAYAEMDaMCsBsx2vPbMw/ipvtAAmQeAowE0YFgDOM+w88jAVGG1awCAATA0gAbMasBsx2vPPIyf6gsNkHkAOBpAA4Y1gPMMO48MTBVWuwYAGABDA2jArAbMdrz2zMP4qb7QAJkHgKMBNGBYAzjPsPPIwFRhtWsAgAEwNIAGzGrAbMdrzzyMX1n15cY/YJiVKVkvRtApCzqC7br+1+Dyr7HrdbtG2jDbhXAq8CpKA2twScABsKxMyXqxogQsgmVZl4a+gSvUARDLpolsFwJeVGCmNRADLoEYAMvGlWwXMi1eESbL+vRyBlyhPoBYFq1kuQjwovoyp4FfwQXEsjIl68XMiTgUI+t1aOUOcIlWqMKSayb5BYAW1ZcJDdwJLgGYXwKxpIxJ2rgJ4YZiY70+PaQCV6glIJZMV8kaBl5UXqo1kANcAjEAlowzyRpWLV4RFsv6/J8TXKG+gFgSrSVpFHhRfanTwFPgEogBsCSsSdKoOvGKiFjW5++nwRVqDojdrr/bGwReVF8qNKAJXEAsGWeSNaxCxKFwWK/D11rBJfqjCrtVh7c2BrSovh7TgHZwCcD8Eojdxp3bGnpMuKEwWK/Pn5bAJfoEYLfp9LaGABjVVzYNCLQsg8By3wXECpYATIETsgW+9bEKuKyPQ/oPxC7z53IDBB+VV3INlAYuAHYbd25rKLmIxeks6/FZqeAKNUwVdknPl04GWlRfSTRQA7gEYgDsEoMunZxEvOJYlvX5piZwhfoGYj9r/ecTgRfV120aqBVcQOwyfy43cJuIQ2eyXodfANfsZ6qw2RYn4v+nk4AW1dclDQCu7bgDYtt22QHa6RMuCXenI7RbARQB13G8AbFjGwUcOXUwkKkAMoE4bvM34IqPMwAWb6tXCrHS5ikH3AYJjXYHXL9pAYhF2y36wKIDTWPwW+4T4LoWVwAs2n7RBwIwbh8PNQC47osnIBZly6iDDoVruVqg79c1ALiu23BLh0Ds0K6HBwAvKq+vGliAq307926/HrsVoGzbjz8Atm8fJvGB00/AWYBLbNi27v3+c11zKLqfrlkr7IDYrp52dyI0CU6WvRY2wTXapmlb1zSd+6MKuxQ3TffnnJsTAQDbZdTuzkuOqDVjljZugdYQSI3r48u9XbuCett1rnn5/XPwlWaLlOMZwOXcX9c4fzce3o4Dsa+c+roDeK0CNKV4NbYt4Jr65qsrv9FXWP36ElRtO85/yVxY07qW28kTcTQkBw+w16t1A8Pm+ARisy0mTQYrJwy92RDnFwK8D3DJLWL311cHk2Y8xP581eX10Li29YH3GuHm74JkH3qZbLbQyFjNhnYKE4MkgvEcALapo82NwGghtDps9A1cEnz+FufdBrYYK7JhW+u693uo0HxAroJP2mAZ2K+/3fYFbbjNV16ft+diNyAW2qpf/9gAvCqD1xG4JHiG2xoJLh9of67r5kcn+kn8yXYyV7a8zZzbQnfeFsO8l9g0vIXctg8A+7DLxwYANgVh2baJB1dgh352eThznquRAJTjfCACrlhYy+R9+M7j3rlATHTWLxcvgFcF8FqCSyql9a1MrC72b3n2ApF9sTb+PA6ITTaZVoBX4fBagiuYbO+f2xpAtpyP+a6NYYprvAXiua97YsfPKUbaEoBN2pxW7nFC4RCwWDV8gGv0kb91GW4DRw00nesWE8rftTHf9qxvH7+fY9F2eft8rpoFYr3WEFxekeaz9zdwTeNdvVPYdN3Hw6nTsSQmlQkeiCFMlcK8Ao5DcIU+Dybl5bzwCfAr/eDc9MkKgIViZt00zARAZ8Gxrrz87eFiLqyHHLeKZ+2a6/jKIZY+S+RyZK3X+RVcYq/2vYTTx9wYie25xDY+LCw+XizHJ/gBGAJ9TqAXbC9iFhD9uvQFlkzmD5PzPMP1qy2TnNe209zk4J9lwvHXrBhiVGBJRHcBTEf9uQtc83XmZ8HczsdY5uPRTF5btO7999d/TEsSzdb1K4UYYtwSg8Zt94ML32v089Sntuu/HHJ4n+W4KgZgCauGySlc4/TtKuCqFbThw8WN697H3+5RIcRqFYf+cQMu/T5Kn5hb14YPFx9M6gMwKqTTFdKdIhZoVSjER+1+pw+Tt3UwqV+ZdshyyQUXkRQEXBr6Qh+0x8TxpH5FENPurLL7B7jK9u+tyeDEpD4Ai6gabnVOZdcDXIDrfPycm9SvBGII6byQfrcZ4Prddjn9pPdaq0n9ncQPwHaMo9fBOgMEcOn0S+k6rgBiCCuliAEX+kqpr5i2C4cYAosRwdljABe6OquZVMcDMG4lo59RAlyAKxWIrrRbMMQQ3BVhyLmACx2JFrQuC4UYwrsiOMCFfq7oJ+e5AIxbyelWEnABrpzwuetaBUIMIZ4RB+BCL2f0ou1YAFZpFQa4AJc2GP3an8IghjD3hAC40MeePqzuKwhiCHRLhIALXWzpopRtAKzQW0nABbhKgdTROAqBGIL1jpa/I6ezH72UogEAVkAVBrgAUilA+mUcBUCsbgEX4MDp2bRfBMw5devf+994DNTtQOPOA14F3AU8nUSMx0C9ADPuOOAFvG7TgOFYAGBPZ0CuX68GtfgegBnMhoaddlvm1RJA9ON5iBuNh+cN95R4jToMeBlMlk9p/Ox1DcYEADvrZI6vVzOl+x6AGcmOBh1F5WVEW9YhZyw26symxpwEvIBXVg0Yig8AZj1j0v86NZzS7wBMecY05KCsmTdlUNC2LdAaiRFbRr0rCIw4B3gpT4R36VFjO0ZipD6AGXEM8AJej2vAQKwAMI3Zjz7Vp0uNPgdgCrOoAac8nnk1BhN9yg91A7GS3yhPC9GAUwCYwsT3tG6fuL6BWAFgTwiDa9anO2s+NwAvn+jrEpIRp1CBVaZLjXFoJFYAmEbx0Ke6dKnR3wBMYRbtndJ07s+vhH/vlqpHob80BnYtffLhYWCsdWU675Q/93btKlibbkQaILMgWvq40m8K0ACwDEY+67i+6NqBVPt27q9rCBCFvjvra46/VpwAMGVBMDikdW/n3Lv94lxPsB3AERRf7KbM1/jpup8AmDJRzw4ZIOZfh7CS28ivcFM2HoL0epBiw20bzrGyvV+R3dR38LbbuS2nCLTWMFPkoNvGz5jq0fpVX2/FytU2E51fj1Mnp/jbRPfnuqaesScSD3AttCqfYkX/+OoJ4t4p/SMU/l3IxnXvzrXy7qPf6f+Y/7oEpdGKmwuB6ObOcaMcc7SMaWN9zFGb7J9Z4G1nxB5zp410+CfDikP8LaO8y9jfPv51rgmyTLi/ZHukGpvYOWx/vW392h+7tS1sY72+dXy4LVyXc7e2yT6WSw4YstWy46U6cnJI+54A9no1rm1Xj0zwLuRPCUJ0M9l5TArr1/649bb1a2lrb7k+5+j11nX32q9939qeiu1RGcBeL9e+v89/8RzYvXqICYSYY44CaN3G+rU/f2vbUbu17jdkq3sFq9XhMQ4Z5vaXt5Rax2OhXzE2jznmaKwxbcQcc3SdWvYbsxUAq0WYuccZEwgxxxz1O6aNmGOOrlPLfmO2Kh9gxhxyaQ5KS5DF2DzmmKPxxLQRc8zRdWrab8xeAKwmceYaa0wQxBxz1N+jNo72H7Vf435jNgNgNYo09ZhjgiDmmKN+7rWxt++o3Zr3G7MbAKtZrKnGHhME347x2/1fTN++Hbe1fWtbzDVqO8aYnQDYa3h2YvFAa22ivXu8MUHw7Ri/3f/F9OnbcUMLn//HtFn7Md9sqtQuZQMsxhnygW6+haJsLSgNwChQ5+x7TMzk7M/BtcoW7eSM4SEvPsAdfGzqQBjqAov+po/VKV7s6CS9UZ4UXu8QPsANjOwE5KO+AmDKhOIdEn5Amw9wl52wnkyWJVwbgCkEmJ+kl2+g4APcAKwE0KQaAwBTBLDQGXyAG3ClCnoT7Y4/JTgn8m09hDFjYlxGOvnTvECMM/gA97aQS9ZFdWOb5oBf03SKvPPuY8QF34kXEzPK7FeugA064ydQKxMUY1B0F+K1Ec4By+vwm4d9EpdHiAzGDAADAOVqAN+uAeZ/kWv5w84COIPw8smyXPEadQgVTMGafCbegp8R9D9m03XB85CN8z8L4Sswo/FSJsCMOgN4Aa8MGhig1RPL/zf+kI3RmAFgz2TFMu2OLe36FYApyp5GnZEh+9oNMOD4o++a1rURv4FqNGZ+NIoiWG0J26gzAJhyXW1pTfW2/ptW/ty7a9xrfBbMx8b0Z/sRCh8vAKxUGzCuMrV9xq/yDqM/J1yXNvw2w49QlAkwn13EQSwJ4qo14KsuqbIWH6kbdCFQMxwz5QncsDMAb6F3BI9CtP+4yfBu4+IjdcPHUPpHKgzHDAB7VFwELNDOpQEBmadV/zf/wLN/aTQOAJhRx1kVHP3OBawT1wFgJ4yVGhiGnUFwK9JRap1qat9wzJRVgRl2BPACXo9pwHDcADBNmZC+lKVHK/4EYEqyp3eE/7MiHPoJsB7RgJ/Qt/0ZSInxMgU0ckwGyVJJgnkkWBn7h/6HNySHdyGNJ/wyASaBIiBL7qSNhwSlDyzL1ph1/yaPjbQJpB5xpYJZmM2si5n+VxAPTbP4FXoAlpawH+XvHUEmMLvW1vBFce+uc3/jfMK19ioIHoNaMevTxYOr80Orr7Z17eiHtm37UDA7RsMdvwVsArLTWagXx/DVvOEHYmu3J+NXloSaznWt79PqSwxH4ftfKTqtfV1JSJnBHzTO6NNDMHpgyTs4r9fnd4wTxGhKkwZ8rg1/Ts1XXUP/Wtfa/SppiVPEthabgGw3MwXleSiOdVvz6+B7ybndFPGxzJSw56TbuLZtJrvvajxT3+YY+YlFP500GeDixdW3cwQz/+n+9zusyLbsOc6VBaW8fAdT6fZjfFt6eGjbmHRD7QEwG5S+BZQCMx+UTTN+w6V819KOHeQ7lySY16+X35S5/MkrOYflQ0G/49cSfALACnfwlkgFZH7Zdn+L+YXP4z/nyDzAwizYdN30rlBf6q9+t++zTYIZm9yjAQBWIcDC4BGYyW/rhfv6dV+2L+a8/LtBwVva/k2Axf57hPnRj8r9hD22dQXACIz+9lRA9iGI9RP6w1tC04OEQ8U1ng3IbrnVB1bbsNqyy4de7cVz/GC3DMC2T/stYLaowNbVV3ju8JxOeGuJbUP7sJ5CDwDMHrGzZvkQZn49BFQ499WLc12tYdusvkoBCM1tFgAvrw8yWw4bhCAbrvdZcS1+cAG/AK/EGgBgiQ2cAyxPXENgtnx8YvjVmCf6wzXrTOIADIBdqhIEZIUI6ZItgGh+iBaiu/yGQ6yfNheYYZtP22CTNDYBYFRgt1cdArJCxHW7fYDZfTArRGP3GQRx3WtLYHavPdHn0p4AjAosW4UhMCMIl0GIPX63BwADYNkAJoEqICtEfNntJ3asfVmQfn4neO0ieHr8ArOn+8H17cUQAKP6UlM9CMgKEqUa25YK54K0Yi97lCqqO8YFzNBzjI4AGBWY+ipBYBYjaI6pC3wADICpB5hACZDVBSfx+94SgAEwMwATIRckWnO2Fx9oWRakBbKTFlHl6EdBwgViPxYRhWkAgOUAh5ZrRIm36dyfP9Atf09Qyxjox7WY9X4tyIbXjFGQIUpy6u5YogU8giz8Ekb8bT9eov3/Y4WXWSP2HZLZYLtwsNKXWBH3PyXId/UX4XPRZqzv5XjlSwCm3EHJgudYyJ/fGlurrUoa97HfTTHBVGeTBXNJAj0zFi/m73/hz7+hkzN21Xys97fm/p3sG8I8abCSnN+zy/+mpYv4hfGa7VTS2AGYjcm9okCTMoC8oN/9fy02K1zbhcHL65UKDBu8vK6nRyd417HcmABgAK/YKqVAcRfrq1+TboE+Ljfb/Orkms8rUODJINb0k4c25g+9X+WvMH0DsMIceilgvciH36t8u5Zq271e7TA/6JbvyPbwkjc+/MNysq7AZgKqcFmwxgFYwc79CWZe+O17D2AS1KV/1MiPcwSXh9T0QK9/Pm5pn2H3M7EUgsqvV6bnZ4xemZHNiSoqEEr/qFH7dn9ds+G7T4D1FdkEuHQxtYZVlJ8UVIUJ4z2dsRN2ekNUjONue38PDl+ZDBXIcPe0FeTa/DF8qkAAsA2mZZ89lPw7stNc1zhmb+dlxTW2ffNtpPQ1XN7t4wLaWzqtgAEBtxsz7gCx1r3D4PTRO/0t54a06sdDKAZaYf/7c95v9yeV1UBr13j7Bt/Y4U3xbmeoh22cWZ9MOq6cObfiYwFYxc4/hL2PpWW1MeilfdsA1+TbtnNdc1LrIbDGpPB93CvIHySRNaz866mvB+dy3MKPixcYEfF8aKAPtrAC89VH+Polt2eKodZ0rgtvBxf9/xIDfZW1nKyX28oPiAyU/7CdP27r7+N8dLdpuwg7fXEeBv3VoAWe165iUIJ6BS4fxP3tlEZNta77m28j+3ktuTXc0fpQhM1zfIsKbHEbOcN7ZawC9aDKv6o6g7N3gikiGyW1nw/MuQ/BIwZBn2PBMLeTT39NM4Po1VeNAuK9PvhxBn8r6AV7ptUnxlbxNfecx76KhRHAatCBj9DBHr7y8sG/qsACkFmw26Ka8n3vK8i5klqPYSJUsLI+htfZmZH9gh+BgdPt+KCH2Gq+p4/7VWWi0adDt8XWW+8aLrcFnOpXNY6JPhnLmjhMAvC5ZR/NwSR4/7jB5gOfz/VxUyc9aWcshY9VzFvntc02iBdtBYgykSEQbQLZ6I9M6r9d13+gOWYuSY/OZkTNa8BKj39O+sJsxzcCi7GcdP4lG/rw7wxUXjOmhrWcNuJayWMy+QUuBQkC0OsfjwNt/lnDSmMftdnMeH/0Bohxw6oL7hT2fBIQwIrY5SulmXO7DNpcEFsDKwWQadMcFM11+HLAIdL7fX43xNawurt9NHC/Bh6yaTEDAWwPV5O/QgZYEYMX4IfxLhgPaAbQjAXYGljYnxi8oAGMd8F4ACwAmLfjGmJrWK33Y3vi76IGMOBFAwKxDYgJuLAt8ZVYAxg4sYEB3Apw2JuYu1EDGPNGYwIrYIUG8moAgAEwNIAGzGrAbMfJdHkzHfbG3ho1AMDIvmgADZjVgNmOa8wG9IkqBQ3k1QAAI/uiATRgVgNmO06my5vpsDf21qgBAEb2RQNowKwGzHZcYzagT1QpaCCvBgAY2RcNoAGzGjDbcTJd3kyHvbG3Rg0AMLIvGkADZjVgtuMaswF9okpBA3k1AMDIvmgADZjVgNmOk+nyZjrsjb01agCAkX3RABowqwGzHdeYDegTVQoayKsBAEb2RQNowKwGzHacTJc302Fv7K1RAwCM7IsG0IBZDZjtuMZsQJ+oUtBAXg0AMLIvGkADZjVgtuNkuryZDntjb40aAGBkXzSABsxqwGzHNWYD+kSVggbyagCAkX3RABowqwGzHSfT5c102Bt7a9QAACP7ogE0YFYDZjuuMRvQJ6oUNJBXAwCM7IsG0IBZDZjtOJkub6bD3thbowYAGNkXDaABsxow23GN2YA+UaWggbwaAGBkXzSABmxq4B/Y9n+3jqecFQAAAABJRU5ErkJggg==

ht1480 发表于 2023-2-16 11:32:53

kfh 发表于 2023-2-15 22:09
字体高度怎么设置？

我自己用的小工具，不需要改字高所以没有加设置的功能，你不经常改字高的话可以把
(setq pianyiliang 0.30);;设置偏移量
(setq zigao 0.5);;;设置字高，这两行代码删掉
不经常改字高的话就写
(if (= shezhizg nil) (setq zigao 0.5)(setq zigao shezhizg))
(setq pianyiliang (* zigao 0.6))
想改字高时就在命令行里输入(setq shezhizg *字高的数字值*)
改的特别频繁的话你就改成
(setq zigao (getreal "请输入字高："))
(setq pianyiliang (* zigao 0.6))
这样每次标注前会提示输入字高

ht1480 发表于 2023-2-17 09:32:24

BHL-DONG 发表于 2023-2-17 09:25
不知道为啥，我是按ctrl+a复制的，加载进去就显示语法错误，不过楼主你发的就没有问题

复制代码时我也遇到过，最常见的有两点
1、复制选择时，代码最末尾的括号给漏掉了。
2、粘贴到编辑器里时有时是中文输入状态，括号那些符号是中文的符号，代码就报错。

ht1480 发表于 2023-2-15 17:30:46

效果图看不到

magicheno 发表于 2023-2-15 19:11:48

感谢大佬分享~

kfh 发表于 2023-2-15 22:09:06

字体高度怎么设置？

BHL-DONG 发表于 2023-2-16 09:41:33

加载进cad显示语法错误

ht1480 发表于 2023-2-16 11:38:15

BHL-DONG 发表于 2023-2-16 09:41
加载进cad显示语法错误

也许是你没有复制完整吧

hzyhzjjzh 发表于 2023-2-16 12:46:18

感谢大佬分享~{:1_1:}

BHL-DONG 发表于 2023-2-17 09:25:34

ht1480 发表于 2023-2-16 11:38
也许是你没有复制完整吧

不知道为啥，我是按ctrl+a复制的，加载进去就显示语法错误，不过楼主你发的就没有问题
页: [1] 2
查看完整版本: 文本标注封闭多段线的边长和面积