打断加字程序

huangyusen2000 · 发表于 2013-11-30 19:03:10

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

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

×

(defun c:dk1( / p1 p2 txt txta p3 p4 cla bbb cmd oth)
  (princ (strcat"\n  ************打断加字程序,版本1.0;(1998-1999);"))
  (defun *ERROR* (msg)(princ"\n")(princ msg)(setvar "osmode" bbb)
   (setvar "cmdecho" cmd)(setvar "clayer" cla)(setq *ERROR* olderr)(princ))
  (setq bbb (getvar "osmode") cmd (getvar "cmdecho")  cla (getvar "clayer"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 512)
  (setvar "orthomode" 0)
  (setq p1 (getpoint "\n 点取管线上文字标注点:"))
  (setq p2 (getpoint p1 "\n 点取管线上另一点:"))
  (setq txt (getstring "\n 键入标注文字内容:"))
  (setq txta (angle p1 p2))
  (setq p3 (polar p1  txta  2.50))
  (setq p4 (polar p1 (+ txta 3.14)  2.50))
  (setvar "osmode" 0)
  (command "break" p3 p4)
  (command "layer" "m" "a" "s" "a" "")
  (command "text" "J" "M" p1  3 (rtd txta) (strcase txt))
  (setvar "cmdecho" cmd)(setvar "clayer" cla)(setvar "osmode" bbb)(princ)
)
(princ(strcat"\n(交线打断:dk);(管线加字:dk1) "))
;****************************************************************************

enn09 · 发表于 2014-4-16 15:38:36

感谢分享，支持了

/db_自贡黄明儒_ · 发表于 2014-4-18 20:46:48

05版本以，Mtext背景蔗盖是不是更好些呢？{:soso_e106:}

bzhjl · 发表于 2014-4-22 19:35:14

哇！好厉害~！感恩~~

吴外安放 · 发表于 2020-7-26 18:39:57

谢谢版主分享

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

[每日一码] 打断加字程序

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

评分