明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 8215|回复: 14

求多边形面积标注、填充这样的程序

  [复制链接]
发表于 2007-9-23 22:18 | 显示全部楼层 |阅读模式
求这样的程序,选取多边形--自动在中心位置标注面积文字“A=????”同时填充左斜线且斜线不占压“A=????”,谢谢。
发表于 2018-8-2 19:06 | 显示全部楼层
终于找到了,自己想要的资料!
发表于 2007-10-1 21:53 | 显示全部楼层
  1. (DEFUN C:TT ()
  2. (SETVAR "CMDECHO" 0)
  3. (IF (AND (PRINC "\nSelect A Polygon 选择一多边形 :")
  4.           (SETQ SS (SSGET '((0 . "LWPOLYLINE"))))) (PROGN
  5.   (SETQ EN (SSNAME SS 0)
  6.         ENT (ENTGET EN) I -1 TML (LIST))
  7.   (REPEAT (LENGTH ENT)
  8.    (IF (= (CAR (SETQ TMP (NTH (SETQ I (1+ I)) ENT))) 10)
  9.     (SETQ TML (CONS (CDR TMP) TML))
  10.    )
  11.   )
  12.   (SETQ PT1 (CAR TML) PT2 (CADR TML) PT3 (CADDR TML))
  13.   (SETQ PM1 (POLAR PT1 (ANGLE PT1 PT2) (/ (DISTANCE PT1 PT2) 2))
  14.         PM2 (POLAR PT2 (ANGLE PT2 PT3) (/ (DISTANCE PT2 PT3) 2))
  15.   PF1 (POLAR PM1 (+ (ANGLE PT1 PT2) (/ PI 2)) 3)
  16.   PF2 (POLAR PM2 (+ (ANGLE PT2 PT3) (/ pi 2)) 3)
  17.   PC (INTERS PM1 PF1 PM2 PF2 nil))
  18.   (COMMAND "AREA" "E" EN "")
  19.   (SETQ TXTA (STRCAT "A=" (RTOS (GETVAR "AREA") 2 2)))
  20.   (COMMAND "TEXT" "M" PC "" 0 TXTA)
  21.   (COMMAND "HATCH" "_U" 45 "" "" "L" EN "")
  22. ))
  23. (SETVAR "CMDECHO" 1)
  24. (PRINC)
  25. )
复制代码
发表于 2007-10-23 19:06 | 显示全部楼层
谢谢ZZXXQQ ,求同一类似程序,只要求上述填充的图案能够修改成其它图案!
发表于 2010-8-15 11:39 | 显示全部楼层

借楼主帖子发个问,能否修改“选取多边形”为“拾取边界”然后其它功能同楼主的不变啊?

发表于 2010-8-19 08:55 | 显示全部楼层

请问ZZXXQQ版主能否换成平方米?谢谢!

发表于 2010-8-19 09:45 | 显示全部楼层

把代码19行中的 (GETVAR "AREA") 修改即可 如要面积除以1000修改成 (/ (GETVAR "AREA") 1000)

发表于 2010-8-19 16:58 | 显示全部楼层

哦,谢谢古大侠!

 

发表于 2010-8-23 11:16 | 显示全部楼层

请问标注文字大小能否随图形大小而变化呢?

 

发表于 2010-12-13 11:28 | 显示全部楼层
值得借鉴。。。
发表于 2011-3-31 23:05 | 显示全部楼层
高手!下载了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 19:46 , Processed in 0.203053 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表