明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2191|回复: 1

求助,运行后报错“选择即将应用公差的尺寸 : ; 错误: 参数类型错误: lentityp”

[复制链接]
发表于 2012-4-28 16:52:03 | 显示全部楼层 |阅读模式
(DEFUN C:t1 ()
  (setvar "cmdecho" 0)
  (initget 128)(setq tol01x "0.01")
  (initget 128)(setq tol02x "0.0")
  (setq tol01 (strcat "+" tol01x))
  (setq tol02 (strcat "-" tol02x))
  (setq ltol (strcat "{\\H0.6x;\\S" tol01 "^" tol02 ";}"))
  (SETQ diml1 (ENTSEL "\n选择即将应用公差的尺寸 : "))
  (if (= diml1 NIL)(PRINC "\n没有选择任何物件!"))
  (SETQ ENT (ENTGET (CAR diml1)))
  (setq dimtext (CDR (ASSOC 0 ENT)))
  (setq dimok (= dimtext "DIMENSION"))
  ;;(if (= dimok nil) (princ "只能选择完整的尺寸!") (exit))
  (setq dimtol (CDR (ASSOC 1 ENT)))
  (setq rr (substr dimtol 1 2))
  (if (or (= rr "") (= rr "<>"))
    (progn
    (setq ltol01 (strcat "<>" ltol))
    (setq cc(subst (cons 1 ltol01)(assoc 1 ENT)ENT))
    (entmod cc)(entupd diml1)
    )
    (progn
      (if (= rr nil)(princ "手工修改的尺寸暂不能用此程序标注公差!"))
      )
    )
  )
 楼主| 发表于 2012-4-28 17:27:09 | 显示全部楼层
程序可以使用,就是会出现"选择即将应用公差的尺寸 : ; 错误: 参数类型错误: lentityp "这个提示,想知道这是什么回事!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-23 20:26 , Processed in 0.220908 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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