设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [讨论]：标高标注,总觉得写的不好,帮忙看下 ...
返回列表 发新帖
查看: 487|回复: 1

[讨论]：标高标注,总觉得写的不好,帮忙看下

[复制链接]
ago9999
发表于 2004-6-12 17:50:57 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×

  3. (defun c:bg1 ( / num bili pt pt0 text  text1 text2)
  4.   (princ "\n欢迎使用ago高程自动标注-图纸空间版:")
  5.   (princ "\n请确定(标高符号)块是否在搜索路径内,否则情先执行BG建立块:")
  6.   (princ "\n请输入图纸比例")
  7.   (cond ((/= bjbili nil) (princ bgbili)))
  8.   (princ ":")
  9.   (setq bili (getint))
  10.   (if (= bili nil)
  11.         (setq bili bgbili)
  12.         (setq bgbili bili))
  13.   (if
  14.     (= bili nil);
  15.     (setq bili 1);
  16.     )
  17.   (setq pt0 (getpoint"\n请选择0程点:"))
  18.   ;(cond ((= bgor nil)
  19.   ;(bg)(setq bgor 1))
  20.    ; )
  21.   (setq n 1)
  22.   (while
  23.     (= n 1)
  24.     (setq pt (getpoint"\n请选择需标注高程点(或按ESC退出):"))
  25.     (setvar "cmdecho" 0)  ; 关闭命令示
  26.     (setq osn (getvar "OSMODE"));记忆捕捉
  27.     (setvar "OSMODE" 0)
  28.     (setq pt (list (nth 0 pt0) (nth 1 pt)))
  29.     (setq text (* bili (- (nth 1 pt) (nth 1 pt0))))         
  30.     (setq text (fix text))
  31.     (cond
  32.       ((> text 0)
  33.        (setq text (itoa text))
  34.        (setq num (strlen text))
  35.        (cond
  36.          ((> num 3)
  37.           (setq text1 (substr text 1 (- num 3)))
  38.           (setq text2 (substr text (- num 2) 3))
  39.           (setq text (strcat text1 "." text2))
  40.           )
  41.          ((= num 3)
  42.           (setq text (strcat "0." text))
  43.           )
  44.          ((= num 2)
  45.           (setq text (strcat "0.0" text))
  46.           )
  47.          ((= num 1)
  48.           (setq text (strcat "0.00" text))
  49.           )));;
  50.       ((< text 0)
  51.        (setq text (itoa text))
  52.        (setq num (strlen text))
  53.        (cond
  54.          ((> num 4)
  55.           (setq text1 (substr text 1 (- num 3)))
  56.           (setq text2 (substr text (- num 2) 3))
  57.           (setq text (strcat text1 "." text2))
  58.           )
  59.          ((= num 4)
  60.           (setq text (strcat "-0." (substr text 2 3)))
  61.           )
  62.          ((= num 3)
  63.           (setq text (strcat "-0.0" (substr text 2 2)))
  64.           )
  65.          ((= num 2)
  66.           (setq text (strcat "-0.00" (substr text 2 1))
  67.           ))));;;
  68.       ((= text 0)
  69.       (setq text "±0.000"));;;
  70.       )
  71.     (command "-insert" "标高符号" pt "" "" "")
  72.     (setq pt (list (+ 14 (nth 0 pt)) (+ 3.5 (nth 1 pt))))
  73.     (command "text" "j" "r" pt "2.5" "" text)
  74.     (setvar "OSMODE" osn)
  75.     (setvar "cmdecho" 1); 打开命令提示
  76.     )
  77.   )
  78. (defun c:bg2 ( / num bili pt pt0 text text1 text2)
  79.   (princ "\n欢迎使用ago高程自动标注-模型空间版:")
  80.   (princ "\n请确定(标高符号)块是否在搜索路径内:")
  81.   (setq bili (getint"\n请输入出图比例:"))
  82.   (if
  83.     (= bili nil);
  84.     (setq bili 1);
  85.     )
  86.   (setq pt0 (getpoint"\n请选择0程点:"))
  87.   ;(cond ((= bgor nil)
  88.   ;(bg)(setq bgor 1))
  89.     ;)
  90.   (setq n 1)
  91.   (while
  92.     (= n 1)
  93.     (setq pt (getpoint"\n请选择需标注高程点(或按ESC退出):"))
  94.     (setvar "cmdecho" 0)  ; 关闭命令提示
  95.     (setq pt (list (nth 0 pt0) (nth 1 pt)))
  96.     (setq text (- (nth 1 pt) (nth 1 pt0)))         
  97.     (setq text (fix text))
  98.     (cond
  99.       ((> text 0)
  100.        (setq text (itoa text))
  101.        (setq num (strlen text))
  102.        (cond
  103.          ((> num 3)
  104.           (setq text1 (substr text 1 (- num 3)))
  105.           (setq text2 (substr text (- num 2) 3))
  106.           (setq text (strcat text1 "." text2))
  107.           )
  108.          ((= num 3)
  109.           (setq text (strcat "0." text))
  110.           )
  111.          ((= num 2)
  112.           (setq text (strcat "0.0" text))
  113.           )
  114.          ((= num 1)
  115.           (setq text (strcat "0.00" text))
  116.           )));;
  117.       ((< text 0)
  118.        (setq text (itoa text))
  119.        (setq num (strlen text))
  120.        (cond
  121.          ((> num 4)
  122.           (setq text1 (substr text 1 (- num 3)))
  123.           (setq text2 (substr text (- num 2) 3))
  124.           (setq text (strcat text1 "." text2))
  125.           )
  126.          ((= num 4)
  127.           (setq text (strcat "-0." (substr text 2 3)))
  128.           )
  129.          ((= num 3)
  130.           (setq text (strcat "-0.0" (substr text 2 2)))
  131.           )
  132.          ((= num 2)
  133.           (setq text (strcat "-0.00" (substr text 2 1))
  134.           ))));;;
  135.       ((= text 0)
  136.       (setq text "±0.000"));;;
  137.       )
  138.     (command "-insert" "标高符号" pt bili bili "")
  139.     (setq pt (list (+ (* 14 bili) (nth 0 pt)) (+ (* 3.5 bili) (nth 1 pt))))
  140.     (command "text" "j" "r" pt (* 2.5 bili) "" text)
  141.     (setvar "cmdecho" 1); 打开命令提示
  142.     )
  143.   )
  144. (defun c:bg (/ bg)
  145.   (command "line" "0,0,0" "6,0,0" "")
  146.   (setq bg (ssget "l"))
  147.   (command "pline" "6,3,0" "3,0" "0,3" "18,3" "")
  148.   (command "block" "标高符号"  "0,0,0" (ssget "l") bg "")
  149.   )

郁闷,我不知道怎么取整,总是取不了
text, setq, num

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2004-6-12 18:44:15 | 显示全部楼层
(rtos 2.3333333 2 3) -->"2.333"

有时要注意dimzin
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-27 05:30 , Processed in 0.328703 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表