[求助]：大家帮我编一个矩形标注程序谢谢(见图)

xxming · 发表于 2004-12-4 19:43:05

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

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

×

大家帮我编一个矩形标注程序,并可在矩形框中写字。谢谢(见图)

xyp1964 · 发表于 2004-12-4 20:19:49

[php](defun c:test ()
  (setq pt1 (getpoint "\n\t引出点 : ")
pt2 (getpoint pt1 "\n\t放置点 : ")
pt3 (polar pt2 0 30)
pt4 (polar pt3 (* pi 0.5) 30)
pt5 (polar pt4 pi 50)
pt6 (polar pt5 (* pi 1.5) 30)
pt7 (polar pt6 0 10)
pt-txt (polar pt5 (* pi 1.75) 10)
  )
  (setvar "textsize" 3)
  (command "_style" "汉字" "宋体" "3" "1" "0" "N" "N");3为字高
  (setq txt (getstring "\n\t文本内容 : "))
  (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 "c")
  (command "text" "J" "ML" pt-txt "0" txt)
  (princ)
)[/php]

xxming · 发表于 2004-12-5 19:55:09

楼上兄台：你的引线只有一条而我需二条引线，你能否看看我的附件，修改一下程序谢谢

xyp1964 · 发表于 2004-12-5 22:49:06

不知是啥意思，解释一下。

xxming · 发表于 2004-12-6 08:26:09

你的程序只有一条引线和一个矩形，而我需要二条引线和一个矩形啊，看图

xyp1964 · 发表于 2004-12-6 13:27:54

不知何种情况适用二条引线和一个（或二个）矩形！

cyxzime · 发表于 2004-12-7 12:30:35

不知是啥意思，解释一下。

xxming · 发表于 2004-12-8 08:25:00

我只是想达到图上的效果而你的程序没有能否修改就这么简单

xyp1964 · 发表于 2004-12-8 14:24:05

试试，晕：
[php]
(defun c:test ()
  (setq pt1 (getpoint "\n\t引出点 : ")
pt2 (getpoint pt1 "\n\t放置点 : ")
pt3 (polar pt2 0 30)
pt4 (polar pt3 (* pi 0.5) 30)
pt5 (polar pt4 pi 50)
pt6 (polar pt5 (* pi 1.5) 30)
pt7 (polar pt6 0 10)
pt-txt (polar pt5 (* pi 1.75) 10)
  )
  (setvar "textsize" 3)
  ;;3为字高
  (command "_style" "汉字" "宋体" "3" "1" "0" "N" "N")
  (setq txt (getstring "\n\t文本内容 : "))
  (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 "c")
  ;;(command "text" "J" "ML" pt-txt "0" "LISP程序")
  (command "text" "J" "ML" pt-txt "0" txt)
  (setq pt1 (polar pt1 0 78)
pt2 (polar pt2 (d2hd 345.0) 52)
pt3 (polar pt2 0 16)
pt4 (list (+ (car pt3) 5.5) (+ (cadr pt3) 5))
pt5 (polar pt4 (d2hd 90.0) 10)
pt6 (list (- (car pt5) 5) (+ (cadr pt5) 5))
pt7 (polar pt6 (d2hd 180.0) 28)
pt7a (polar pt7 pi 5)
pt8 (list (- (car pt7) 5) (- (cadr pt7) 5))
pt9 (polar pt8 (d2hd 270.0) 10)
pt10 (list (+ (car pt9) 5) (- (cadr pt9) 5))
pt11 (polar pt10 (d2hd 0.0) 2)
pt-txt (polar pt7a (* pi 1.75) 10)
  )
  (command "pline" pt1 pt2 pt3 "a" "r" "5" "a" "90" pt4
pt5 pt6 pt7 pt8
   pt9 pt10 pt11 "l" "c")
  ;;(command "text" "J" "ML" pt-txt "0" "LISP程序")
  (command "text" "J" "ML" pt-txt "0" txt)
  (princ)
)
(defun d2hd (d)
  (* (/ d 180) pi)
)
[/php]

xxming · 发表于 2004-12-9 08:18:23

如果我想在矩形框中有个输入文本的功能（请只保留矩形就行了），麻烦你了谢谢

xyp1964 · 发表于 2004-12-9 11:51:28

9楼的程序已经修改，再试！

xxming · 发表于 2004-12-9 22:19:43

谢谢，能否提个过份要求，“让我可调节两条引线的夹角”这个功能？

xyp1964 · 发表于 2004-12-10 00:12:39

“让我可调节两条引线的夹角”这个功能，不明白！
还是图示为好。

xxming · 发表于 2004-12-10 08:12:19

就是矩形框下面那两条线

xyp1964 · 发表于 2004-12-10 23:08:36

那是四条线，拜托！

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

[求助] [求助]：大家帮我编一个矩形标注程序谢谢(见图)

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

相关帖子