[求助]：如此倒角标注？

wytxl2002 · 发表于 2006-2-15 09:36:52

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

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

×

能否用VLISP实现如此的倒角标注?

zxq0220 · 发表于 2006-2-15 10:26:43

写了一个，不知是否满足楼主的要求。
[php]
(DEFUN C:DCORNER ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
(WHILE (/= (CDR (ASSOC 0 DL)) "LINE")
  (PRINC "\nError!")
  (SETQ DL (ENTGET (CAR (ENTSEL "\nPlease Select a Line 请选择一条直线 :"))))
)
(SETQ P1 (CDR (ASSOC 10 DL))
   P2 (CDR (ASSOC 11 DL))
   X (ABS (- (CAR P1) (CAR P2)))
   Y (ABS (- (CADR P1) (CADR P2))))
(SETVAR "OSMODE" 0)
(IF (EQUAL X Y 1E-4) (PROGN
  (SETVAR "SNAPANG" (ANGLE P1 P2))
  (SETVAR "ORTHOMODE" 1)
  (SETQ PT1 (POLAR P1 (ANGLE P1 P2) (/ (DISTANCE P1 P2) 2))
PT2 (GETPOINT PT1 "\n标注方向 :")
      PT2 (POLAR PT1 (ANGLE PT1 PT2) (/ X (SQRT 2.0))))
  (COMMAND "DIMALIGNED" PT1 PT2 PAUSE)
))
(SETVAR "SNAPANG" 0)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

wytxl2002 · 发表于 2006-2-15 10:48:15

谢谢zxq0220！我试试zxq0220 你有QQ号吗？

xyp1964 · 发表于 2006-2-15 13:13:09

没有倒角的功能！

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

[求助] [求助]：如此倒角标注？

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

相关帖子