[编程申请]：连续画线并在线旁标注该线长度。

cnnets

找了好些天，找不到直接的程序。
申请编一个LISP程序，环境R14及R15，具体功能：
顺时针画线时长度标在外边，相反侧标在内边，长度值与线的距为0.1或可设定，字度0.4或可设定，线型为实线的line，可设有单位或没单位，如有设画图比例时，相应字线距及字高自动调整。

f5612140

邊畫邊標不易判斷方向,較好的操作方式是先完成封閉空間,點選空間內部一點後完成標示

yangmc

点击下面链接,看看是否符合你的要求
http://www.xdcad.net/forum/showthread.php?s=&threadid=337340

eachy

供参考
http://www.xdcad.net/forum/showt ... d=899418#post899418

cnnets

最初由 f5612140 发布
[B]邊畫邊標不易判斷方向,較好的操作方式是先完成封閉空間,點選空間內部一點後完成標示 [/B]

我看到某个CAD软件有这个功能，还不错，可惜太贵了，我就只要这个功能。

最初由 yangmc  发布
[B]能告诉我都用在哪?用的地方多吗?  [/B]

主要用在测绘。

最初由 eachy  发布
[B] 供参考http://www.xdcad.net/forum/showt ... d=899418#post899418 [/B]

这个程序看以前看过了，不太合适。LISP编程我又不懂，版主可否帮个忙？谢了。

li809

画水电图的时候经常用到，且很有用的，我也很需要这样的程序

f5612140

最初由 li809 发布
[B]画水电图的时候经常用到，且很有用的，我也很需要这样的程序 [/B]

真長見識,沒見過水電圖用過這樣的東西,我是用在面積周長的計算驗證上

li809

最初由 f5612140 发布
[B]

真長見識,沒見過水電圖用過這樣的東西,我是用在面積周長的計算驗證上 [/B]

给排水标管径
电气标线与管
时都可用呀

f5612140

字高,離線距離,內或外請依自己的需求完善

zxq0220

下面的程序看是否能用？程序在R14上调试通过。
[php]
(DEFUN C:BTXT ()
(SETVAR "CMDECHO" 0)
(SETVAR "BLIPMODE" 0)
(SETQ OLDOS (GETVAR "OSMODE") OLDZIN (GETVAR "DIMZIN"))
(SETVAR "OSMODE" 0)
(SETVAR "DIMZIN" 0)
(SETQ D (GETVAR "DIMSCALE")
       H (GETVAR "DIMTXT")
       D (* (IF (> H 0) H 1) (+ (/ H 2) (GETVAR "DIMGAP"))))
(IF (SETQ P1 (GETPOINT "\nFirst point :"))
  (WHILE (SETQ P2 (GETPOINT P1 "\nNext point :"))
   (SETQ ANG (ANGLE P1 P2)
         ANG (IF (> ANG (* PI 1.5)) (- ANG PI PI) ANG)
         A1 (- ANG (/ PI 2))
         A2 (* (/ ANG PI) 180)
         A0 (IF (AND (> A2 -60) (< A2 120)) A2 (+ A2 180))
         DST (DISTANCE P1 P2)
         P3 (POLAR (POLAR P1 ANG (/ DST 2)) A1 D)
         DST (RTOS DST 2 2))
   (COMMAND "LINE" P1 P2 "" "TEXT" "M" P3 H A0 DST)
   (SETQ P1 P2)
  )
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "DIMZIN" OLDZIN)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

cnnets

最初由 f5612140 发布
[B]字高,離線距離,內或外請依自己的需求完善 [/B]

R14的不能用？提示：
错误: bad argument type
nil*Cancel*

最初由 zxq0220 发布[B]
下面的程序看是否能用？程序在R14上调试通过。[/B]

基本满足使用，谢谢。
可否增加“字线间距”、“字高”、“画图比例”、“后缀（单位）”等选项呢？


十分感两位的帮助。

li809

谢谢10楼楼，水电图不再麻烦了

zxq0220

回复cnnets：请看下面的程序注释，您可以自行修改。
[php]
(DEFUN C:BTXT ()
(SETVAR "CMDECHO" 0)
(SETVAR "BLIPMODE" 0)
(SETQ OLDOS (GETVAR "OSMODE") OLDZIN (GETVAR "DIMZIN"))
(SETVAR "OSMODE" 0)
(SETVAR "DIMZIN" 8)
(SETQ D (GETVAR "DIMSCALE") ;这里用的是尺寸总比例
       H (GETVAR "DIMTXT")   ;这里用的是尺寸文字高度
       H (* (IF (> D 0) D 1) (+ (/ H 2) (GETVAR "DIMGAP")))) ;DIMGAP为文字与线的间距
(IF (SETQ P1 (GETPOINT "\nFirst point :"))
  (WHILE (SETQ P2 (GETPOINT P1 "\nNext point :"))
   (SETQ ANG (ANGLE P1 P2)
         ANG (IF (> ANG (* PI 1.5)) (- ANG PI PI) ANG)
         A1 (- ANG (/ PI 2))
         A2 (* (/ ANG PI) 180)
         A0 (IF (AND (> A2 -60) (< A2 120)) A2 (+ A2 180))
         DST (DISTANCE P1 P2)
         P3 (POLAR (POLAR P1 ANG (/ DST 2)) A1 D)
         DST (RTOS DST 2 2))
   (COMMAND "LINE" P1 P2 "" "TEXT" "M" P3 H A0 DST)
   (SETQ P1 P2)
  )
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "DIMZIN" OLDZIN)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

li809

谢谢上楼主，对于刚学的人太好了