sbwdx 发表于 2019-11-18 13:33:24

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

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

start4444 发表于 2019-11-18 13:33:25

差不多是这样了

纵横八方 发表于 2019-11-18 15:00:20

可以写的出来

jiangmingxiu 发表于 2019-11-18 19:23:33

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

sbwdx 发表于 2019-11-18 20:38:17

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

是的,这个是有的

sbwdx 发表于 2019-11-18 20:38:43

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

额,主要是我不会啊

前生 发表于 2019-11-18 21:00:48

(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:05:12

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

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

sbwdx 发表于 2019-11-19 10:22:49

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

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

start4444 发表于 2019-11-19 10:55:30

本帖最后由 start4444 于 2019-11-19 12:35 编辑

sbwdx 发表于 2019-11-19 10:22
又是老师您，厉害，差不多可以啦
参考了论坛一些前辈的码把文字居中了，填充其实没啥用会拖速度，删掉会快很多
页: [1] 2 3
查看完整版本: 请教源泉这个计算面积的功能写出来实现吗？