设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]请问如何使下列程序标注值3米是3.00而不是3000?
返回列表 发新帖
查看: 1918|回复: 4

[讨论] [求助]请问如何使下列程序标注值3米是3.00而不是3000?

[复制链接]
zfsaaa
发表于 2010-6-19 09:59:00 | 显示全部楼层 |阅读模式
请问如何使下列程序标注值3米是3.00而不是3000?
  3. (defun c:bz1( / pt1 pt2 ss sname sinf ent)
  4.   (setq pt1 (getpoint "Get the point:"))
  5.   (setq ss (ssget pt1))
  6.   (if ss
  7.     (progn
  8.       (setq sname (ssname ss 0))
  9.       (setq sinf (entget sname))
  10.       (setq ent (cdr (assoc 0 sinf)))
  11.     )
  12.     (setq ent "Nothing")
  13.   )
  14.   (cond
  15.     ((= (strcase ent 0) "circle") (command "_dimdiameter" (list sname pt1) pause))
  16.     ((= (strcase ent 0) "arc") (command "_dimdiameter" (list sname pt1) pause))
  17.     (t
  18.      (setq pt2 (getpoint pt1 "Etner the second point:"))
  19.      (if (or (equal (car pt1) (car pt2) 0.01) (equal (cadr pt1) (cadr pt2) 0.01))
  20.        (command "_dimlinear" pt1 pt2 pause)
  21.        (command "_dimaligned" pt1 pt2 pause)
  22.      )
  23.     )
  24.   )
  25. )
  27. (defun C:bz2 (/    HOLDOSMODE      HOLDECHO HOLDBLIP P340
  28.     P340ENTGET10     A1      AAA1     A        AAA
  29.     AAL    AAPT     Q%Q      Q%Q1     Q%Q11
  30.    )
  31.   (setq HOLDECHO (getvar "cmdecho"))
  32.   (setq HOLDBLIP (getvar "blipmode"))
  33.   (setq HOLDOSMODE (getvar "osmode"))
  34.   (setvar "cmdecho" 0)
  35.   (setvar "blipmode" 0)
  36.   (setvar "osmode" 0)
  37.   (while (null AAA1)
  38.     (setq AAA1 (nentsel))
  39.   )
  40.   (setq AAL (length AAA1))
  41.   (cond
  42.     ((/= AAL 2)
  43.      (setq AAL (length (last AAA1)))
  44.      (if (/= AAL 1)
  45.        (progn
  46.   (setq A1 (car AAA1))
  47.   (setq AAPT (cadr AAA1))
  48.   (setq AAA (entget A1))
  49.   (setq Q%Q (cdr (assoc 0 AAA)))
  50.   (setq Q%Q11 (cdr (assoc 0 (entget (car (last AAA1))))))
  51.   (if (= Q%Q11 "DIMENSION")
  52.     (setq Q%Q NIL)
  53.   )
  54.   (setq Q%Q1 (cdr (assoc 0 (entget (car AAA1)))))
  55.   (cond
  56.     ((and (/= Q%Q1 "LINE")
  57.    (/= Q%Q1 "CIRCLE")
  58.    (/= Q%Q1 "ARC")
  59.    (/= Q%Q1 "MLINE")
  60.    (/= Q%Q1 "VERTEX")
  61.      )
  62.      (setq Q%Q NIL)
  63.     )
  64.   )
  65.        )
  66.        (progn
  67.   (setq A1 (car (last AAA1)))
  68.   (setq AAPT (cdr AAA1))
  69.   (setq AAA (entget A1))
  70.   (setq Q%Q (cdr (assoc 0 AAA)))
  71.        )
  72.      )
  73.     )
  74.     ((= AAL 2)
  75.      (setq A1 (car AAA1))
  76.      (setq AAPT (cadr AAA1))
  77.      (setq AAA (entget A1))
  78.      (setq Q%Q (cdr (assoc 0 AAA)))
  79.     )
  80.   )
  81.   (cond
  82.     ((or (= Q%Q "LINE") (= Q%Q "MLINE"))
  83.      (command "_.DIMLINEAR" "" AAPT)
  84.     )
  85.     ((= Q%Q "CIRCLE") (command "_.DIMDIAMETER" AAPT))
  86.     ((= Q%Q "ARC") (command "_.DIMRADIUS" AAPT))
  87.     ((= Q%Q "DIMENSION") (command "_.DIMTEDIT" A1))
  88.     ((= Q%Q "LEADER")
  89.      (setq P340 (cdr (assoc 340 (entget A1))))
  90.      (setq P340ENTGET10 (cdr (assoc 10 (entget P340))))
  91.      (command "_.move" P340ENTGET10 "")
  92.     )
  93.     ((= Q%Q "MTEXT") (command "_.DDEDIT" AAPT))
  94.     ((= Q%Q "TEXT") (command "_.DDEDIT" AAPT))
  95.     ((= Q%Q "HATCH")
  96.      (initdia 1)
  97.      (command "_.HATCHEDIT" AAPT)
  98.      (initdia 0)
  99.     )
  100.     ((= Q%Q "ATTDEF") (command "_.DDEDIT" AAPT))
  101.     ((= Q%Q "ATTRIB") (command "_.DDATTE" AAPT))
  102.     ((= Q%Q "SPLINE") (command "_.SPLINEDIT" AAPT))
  103.     ;|
  104.     ((= Q%Q "TOLERANCE")
  105.      (if (wcmatch (getvar "acadver") "15*")
  106.        (progn
  107.   (if (not DDMODIFYY)
  108.     (load "ddmodifyy")
  109.   )
  110.   (DDMODIFYY A1)
  111.        )
  112.        (progn
  113.   (if (not DDMODIFY)
  114.     (load "ddmodify")
  115.   )
  116.   (DDMODIFY A1)
  117.        )
  118.      )
  119.     )|;
  120.     ((or (= Q%Q "VERTEX")
  121.   (= Q%Q "LWPOLYLINE")
  122.   (= Q%Q "POLYLINE")
  123.      )
  124.      (setq AA (entget (car AAA1)))
  125.      (setq AAPT (cadr AAA1))
  126.      (setq AAA (cdr (assoc 42 AA)))
  127.      (if (= AAA 0)
  128.        (command "_.DIMLINEAR" "" AAPT)
  129.        (command "_.DIMRADIUS" AAPT)
  130.      )
  131.     )
  132.     ((= Q%Q "INSERT")
  133.      (setq AA (entget (car AAA1)))
  134.      (setq AAPT (cadr AAA1))
  135.      (setq Q%Q (cdr (assoc 0 AA)))
  136.      (cond
  137.        ((or (= Q%Q "LINE") (= Q%Q "MLINE"))
  138. (command "_.DIMLINEAR" "" AAPT)
  139.        )
  140.        ((= Q%Q "CIRCLE") (command "_.DIMDIAMETER" AAPT))
  141.        ((= Q%Q "ARC") (command "_.DIMRADIUS" AAPT))
  142.        ((or (= Q%Q "VERTEX")
  143.      (= Q%Q "LWPOLYLINE")
  144.      (= Q%Q "POLYLINE")
  145. )
  146. (setq AA (entget (car AAA1)))
  147. (setq AAPT (cadr AAA1))
  148. (setq AAA (cdr (assoc 42 AA)))
  149. (if (= AAA 0)
  150.    (command "_.DIMLINEAR" "" AAPT)
  151.    (command "_.DIMRADIUS" AAPT)
  152. )
  153.        )
  154.        (t
  155. (prompt "\n不能编辑及标注区块中之非线类")
  156.        )
  157.      )
  158.     )
  159.     (t
  160.      (prompt "\n不能编辑及标注区块中之非线类")
  161.     )
  162.   )
  163.   (setvar "blipmode" HOLDBLIP)
  164.   (setvar "osmode" HOLDBLIP)
  165.   (setvar "cmdecho" HOLDECHO)
  166.   (princ)
  167. )

本帖子中包含更多资源

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

x
回复

使用道具 举报

ZZXXQQ
发表于 2010-6-19 11:30:00 | 显示全部楼层
第一个程序改了一下，第二个可自行更改。
  3. (defun c:bz1( / pt1 pt2 ss sname sinf ent)
  4. (setq pt1 (getpoint "\nGet the point:"))
  5. (if (setq ss (ssget pt1)) (progn
  6.   (setq sname (ssname ss 0))
  7.   (setq sinf (entget sname))
  8.   (setq ent (cdr (assoc 0 sinf)))
  9.   (setq oldlfac (getvar "DIMLFAC")) ;读入旧参数
  10.   (setvar "DIMLFAC" 0.001)           ;设置新参数
  11.   (cond
  12.    ((= ent "CIRCLE") (command "_dimdiameter" (list sname pt1) pause))
  13.    ((= ent "ARC") (command "_dimdiameter" (list sname pt1) pause))
  14.    (t
  15.     (setq pt2 (getpoint pt1 "\nEtner the second point:"))
  16.     (if (or (equal (car pt1) (car pt2) 0.01) (equal (cadr pt1) (cadr pt2) 0.01))
  17.      (command "_dimlinear" pt1 pt2 pause)
  18.      (command "_dimaligned" pt1 pt2 pause)
  19.     )
  20.    )
  21.   )
  22.   (setvar "DIMLFAC" oldlfac)   ;恢复旧参数
  23. )
  24.   (setq ent "Nothing")
  25. )
  26. )
回复 支持 反对

使用道具 举报

xhq1954425
发表于 2010-6-20 07:33:00 | 显示全部楼层

路过……看到ZZXXQQ版主诲人不倦！谢谢！

回复 支持 反对

使用道具 举报

zfsaaa
 楼主| 发表于 2010-6-20 23:14:00 | 显示全部楼层
ZZXXQQ版主你调的程序还有个问题,输出的标注只有整数,如何调整为有2位小数的标注?谢谢!
回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2010-6-21 21:58:00 | 显示全部楼层
加上一行(setvar "DIMZIN" 0)试试
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-10-2 06:39 , Processed in 0.177303 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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