请教源泉这个计算面积的功能写出来实现吗？

sbwdx

各位老师，源泉插件个计算面积的能写出来吗？至于字高的话，还是给一个getpoint参数。

start4444

差不多是这样了

纵横八方

可以写的出来

jiangmingxiu

敢问，你这个是源泉的功能吗

sbwdx

jiangmingxiu 发表于 2019-11-18 19:23
敢问，你这个是源泉的功能吗

是的,这个是有的

sbwdx

纵横八方 发表于 2019-11-18 15:00
可以写的出来

额,主要是我不会啊

前生

(IF (setq SS1 (ssget (list (cons 0 "CIRCLE,*POLYLINE"))))
    (WHILE (< COUNT (SSLENGTH SS1))
      (SETQ #ENT (SSNAME SS1 COUNT))
      (SETQ COUNT (1+ COUNT))
      (PROGN
        (redraw #ent 3)
        (setq ename (vla-get-objectname (VLAX-Ename->VLA-Object #ENt)))
        (setq e (VLA-GET-AREA (VLAX-Ename->VLA-Object #ENt)))
        (SETQ PP (GETPOINT (LIST 0 0) "\n 请选择插入点:__"))
        (entmake
          (list
            (cons 0 "TEXT")
            (cons 7 "hz")
            (CONS 8 "TXT")
            (CONS 10 (trans pp 1 0))
            (CONS 40 3)
            (CONS 1 (STRCAT "面积= " (vl-prin1-to-string e) "平方MM"))
            (CONS 41 0.7)
          )
        )
        (redraw #ent 4)
      )
    )
    (PROMPT "\n No Section:...")
  )

sbwdx

前生 发表于 2019-11-18 21:00
(IF (setq SS1 (ssget (list (cons 0 "CIRCLE,*POLYLINE"))))
    (WHILE (< COUNT (SSLENGTH SS1))
     ...

老师，我试了下：显示   错误: 参数类型错误: numberp: nil  

sbwdx

start4444 发表于 2019-11-18 23:33
差不多是这样了

又是老师您，厉害，差不多可以啦

start4444

sbwdx 发表于 2019-11-19 10:22
又是老师您，厉害，差不多可以啦

参考了论坛一些前辈的码把文字居中了，填充其实没啥用会拖速度，删掉会快很多