[求助]：管线程序请帮忙完善一下

lotos1205 · 发表于 2007-3-3 22:21:06

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

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

×

(DEFUN C:TEST()
(SETVAR "OSMODE" 0)
(SETQ PT1 (GETPOINT "\n 请指定点:"))
(SETQ PT2 (GETPOINT PT1 "\n 请指定点:"))
(SETQ STR (GETSTRING "\n 请输入管径:"))
(IF (= STR "" )
(SETQ STR (STRCAT "@" (ITOA (FIX (DISTANCE PT1 PT2)))))
(SETQ STR (STRCAT "@" STR))
)
(COMMAND "_LINE" PT1 PT2 "")
(COMMAND "_TEXT" PT1 2.5 0 STR)
(PRINC)
)

此为在此论坛上发现的两点间画直线并标注的小程序（本人小小动了下刀：）），哪位高手帮帮忙在此基础上修改一下，实现以下功能：１．直线要能连续画出，跟ＣＡＤ中ＰＬＩＮＥ线一样
２．每两点间的直线要带一个箭头
３．文字沿每段直线上方标注

非常期待～！～

xyp1964 · 发表于 2007-3-4 10:45:53

似乎没那么简单，需要优化！可以到签名栏下面的TEST系列程序里找找。

lotos1205 · 发表于 2007-4-1 13:07:55

没找到呢，请问一下如何获取线段中点以及如何在程序中改线宽？

dwg001 · 发表于 2007-4-1 14:29:14

;;试试它。[PHP] (DEFUN C:TEST (/ h pt1 pt2 pt3 L ang str)
  (SETVAR "OSMODE" 0)
  (setq h (getvar "textsize"))
  (while (SETQ PT1 (GETPOINT "\n 请指定第一点:"))
(progn
   (SETQ PT2 (GETPOINT PT1 "\n 请指定第二点:")
      L
(distance pt1 pt2)
      ang
(angle pt1 pt2)
      pt3
(polar pt2 (- ang pi) (/ h 2))
      STR
(GETSTRING "\n 请输入管径:")
   )
   (IF (= STR "")
(SETQ STR (STRCAT "@" (ITOA (FIX (DISTANCE PT1 PT2)))))
(SETQ STR (STRCAT "@" STR))
   )

   (COMMAND "_LINE" PT1 PT2 "")
   (COMMAND "_PLINE" "_non" PT2 "w" "0" (/ h 5) "_non" PT3 "")
   (setq pt4 (polar pt1 (+ ang (/ pi 2)) (/ h 4)))
   (COMMAND "_TEXT" PT4 h 0 STR)
)
  )
  (PRINC)
)[/PHP]

lotos1205 · 发表于 2007-4-2 22:31:50

你下面附带的图片不错，只是程序不是这个效果．最后就是要附带图片中的那个效果，只是箭头最好放在直线中间，直线的全局宽度为０.１５，可以么？高手帮帮忙了！

gccghl · 发表于 2007-4-3 08:32:21

4楼说的不错，可以借鉴。

dwg001 · 发表于 2007-4-3 08:45:54

要求具体点。。。

xyp1964 · 发表于 2007-4-3 09:17:44

hgx (画管线)
管径标注方式 : 1-每段标注/2-首尾标注

xyp1964 · 发表于 2007-4-3 09:19:06

效果：

lotos1205 · 发表于 2007-4-3 21:27:09

已经搞定，非常感谢晓东家园论坛的各位朋友

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

[求助] [求助]：管线程序请帮忙完善一下

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

相关帖子