[求助]：请教如何对一个矩形进行宽度标注

aliu22 · 发表于 2006-1-7 14:58:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教如何对一个矩形进行宽度标注

zxq0220 · 发表于 2006-1-8 11:27:39

1、选中矩形
2、读出矩形的角点坐标
3、计算矩形的边长
4、根据边长判断计算矩形窄边尺寸标注点
5、标注尺寸

tc405003 · 发表于 2006-1-15 08:44:50

二楼的楼主能否给个例子,多谢!

zxq0220 · 发表于 2006-1-15 13:29:15

[php]
(DEFUN C:DWR () ;Dimension Width Rectang
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(IF (SETQ S1 (ENTSEL "\nSelect a rectang :")) (PROGN
  (SETQ ENT (ENTGET (CAR S1))
      L (CDR (ASSOC 0 ENT)))
  (IF (AND (= L "LWPOLYLINE") (= (CDR (ASSOC 90 ENT)) 4)) (PROGN
(SETQ P1 (CDR (ASSOC 10 ENT))
      EN1 (CDR (MEMBER (ASSOC 10 ENT) ENT))
      P2 (CDR (ASSOC 10 (CDR (MEMBER (ASSOC 10 EN1) EN1))))
      X1 (MIN (CAR P1) (CAR P2))
      X2 (MAX (CAR P1) (CAR P2))
      Y1 (MIN (CADR P1) (CADR P2))
      Y2 (MAX (CADR P1) (CADR P2))
      PT1 (LIST X1 Y1 0)
      PT2 (IF (> (- Y2 Y1) (- X2 X1)) (LIST X2 Y1 0) (LIST X1 Y2 0))
      PT3 (IF (> (- Y2 Y1) (- X2 X1)) (LIST X1 (- Y1 9) 0) (LIST (- X1 9) Y1 0)))
(COMMAND "DIMLINEAR" PT1 PT2 PT3 "")
  ))
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

taner · 发表于 2006-1-15 14:36:35

大写的代码看得眼睛都疼!

zxq0220 · 发表于 2006-1-15 22:38:46

最初由 taner 发布
[B]大写的代码看得眼睛都疼! [/B]

没法子，以前写程序都要大写，不然计算机不认。
多看看，习惯了就好了。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请教如何对一个矩形进行宽度标注

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子