乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 51|回复： 8

[编程交流] 这个代码有什么问题？

[复制链接]
asos2000

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-6 11:38:02 | 显示全部楼层 |阅读模式
这个代码有什么问题？
  2. (initget "1:20 1:25 1:50 1:100 1:150")
  3.  (setq DwgScl (getkword  "\n What is Drawing Scale? [1:20/1:25/1:50/1:100/1:150]"))
  4.  (setq StyleName (strcat "EC-22-" (rtos DwgScl)))
  5.  (setq DimName (strcat "EC-" (rtos dwgscl)))
  6.  (if (= DwgScl 1:20)
  7.    (progn
  8.      (command "-style" EC-22-020 "" "" "" "" "" "" "")
  9.      (command "-dimstyle" "save" EC-020)
  10.      (if (= DwgScl 1:25)
  11.    (progn
  12.      (command "-style" EC-22-025 "" "" "" "" "" "" "")
  13.      (command "-dimstyle" "save" EC-025)
  14.      (if (= DwgScl 1:50)
  15.    (progn
  16.      (command "-style" EC-22-050 "" "" "" "" "" "" "")
  17.      (command "-dimstyle" "save" EC-050)
  18.      (if (= DwgScl 1:100)
  19.    (progn
  20.      (command "-style" EC-22-100 "" "" "" "" "" "" "")
  21.      (command "-dimstyle" "save" EC-100)
  22.      (if (= DwgScl 1:150)
  23.    (progn
  24.      (command "-style" EC-22-150 "" "" "" "" "" "" "")
  25.      (command "-dimstyle" "save" EC-150)))))))))))
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 11:46:36 | 显示全部楼层
所有程序在结束时关闭。因此，每个IF语句接收三个表达式，而不是支持的两个表达式。这是第一眼看到的。
 
但为什么不使用COND语句呢？
 
当做
回复

使用道具 举报

asos2000

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-6 11:56:09 | 显示全部楼层 
  2. (initget "1:20 1:25 1:50 1:100 1:150")
  3.  (setq DwgScl (getkword  "\n What is Drawing Scale? [1:20/1:25/1:50/1:100/1:150]"))
  4.  (setq StyleName (strcat "EC-22-" (rtos DwgScl)))
  5.  (setq DimName (strcat "EC-" (rtos dwgscl)))
  6.  (cond
  7.   ((= DwgScl 1:20)
  8.     (command "-style" EC-22-020 "" "" "" "" "" "" "")
  9.      (command "-dimstyle" "save" EC-020)) 
  10.   ((= DwgScl 1:25)
  11.     (command "-style" EC-22-025 "" "" "" "" "" "" "")
  12.      (command "-dimstyle" "save" EC-025)) 
  13.   ((= DwgScl 1:50)
  14.     (command "-style" EC-22-050 "" "" "" "" "" "" "")
  15.      (command "-dimstyle" "save" EC-050)) 
  16.   ((= DwgScl 1:100)
  17.     (command "-style" EC-22-100 "" "" "" "" "" "" "")
  18.      (command "-dimstyle" "save" EC-100))
  19.   ((= DwgScl 1:150)
  20.     (command "-style" EC-22-150 "" "" "" "" "" "" "")
  21.      (command "-dimstyle" "save" EC-150))
  22.   (t (coldim)))

 
但是reutrn这个错误消息
 
  2. What is Drawing Scale? [1:20/1:25/1:50/1:100/1:150]1:50
  3. ** Error: bad argument type: numberp: "1:50" **
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 12:01:23 | 显示全部楼层
GETKWORD语句将返回一个字符串，但您正试图将其视为实字符串。要从用户输入中获取比例因子，可以使用：
 
  1. (substr DwgScl 3)

 
可能需要相应地调整样式名称，或在比例因子仅为两位数的输入中添加“0”。
 
当做
回复

使用道具 举报

asos2000

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-6 12:09:21 | 显示全部楼层
我不明白
请详细解释
 
此代码是例程的一部分
 
我本想设置所有变量，以匹配从bigining创建的公司标准，但isuue是我没有选择这个lisp作为菜单的一部分的文本，所以谁有这个lisp
但是我面临的问题是选择textstyle作为dimstyle
 
  2. (setq DwgScl (getreal "\n What is Drawing Scale: 1:"))
  3.  (command "-units" "2" "0" "1" "0" "0" "n")
  4.  (setq StyleName (strcat "EC-22-" (rtos DwgScl)))
  5.  (setq DimName (strcat "EC-" (rtos dwgscl)))
  6.  (command "-units" "2" "2" "1" "0" "0" "n")
  7.  (setq TextHeight (* DwgScl 2.2))
  9.  (command "-style" StyleName "romans.shx" TextHeight "08" "0" "n" "n" "n")
  10.  (command "-dimstyle" "save" DimName)
  11.  (command "DIMSAH" "on")
  12.  (command "DIMTIX" On)
  13.  (command "insunits" "4")
  15. (setvar "DIMALTF" 25.4)
  16. (setvar   "DIMALTTD" 2)
  17. (setvar   "DIMASZ" (* 0.2 DwgScl))
  18. (setvar   "DIMBLK1" "_OBLIQUE")
  19. (setvar   "DIMBLK2" "_OBLIQUE")
  20. (setvar   "DIMCEN" 0)
  21. (setvar   "DIMCLRD" 
  22. (setvar   "DIMCLRE" 
  23. (setvar   "DIMCLRT" 10)
  24. (setvar   "DIMDEC" 0)
  25. (setvar   "DIMDLE" (* 1 DwgScl))
  26. (setvar   "DIMDLI" 
  27. (setvar   "DIMDSEP" ".")
  28. (setvar   "DIMEXE" (* 1 DwgScl))
  29. (setvar   "DIMEXO" (* 3 DwgScl))
  30. (setvar   "DIMGAP" (* 1 DwgScl))
  31. ;(setvar   "DIMLDRBLK" "")
  32. (setvar   "DIMTDEC" 0)
  33. (setvar   "DIMTMOVE" 1)
  34. (setvar   "DIMTOLJ" 1)
  35. (setvar   "DIMTXT" 12)
  36. (setvar   "DIMTZIN" 0)
  37. (setvar   "DIMZIN" 0)

 
你会发现我改变了策略，
lisp将插入一个具有公司标准的dwg文件，因此我想将其中一个作为默认值，用于例程的主要部分。
 
  2. ;To add the vertical ad horizantal dimensions
  3. ;which shoing the relation between columns and axes 
  4. (defun c:coldim (/ *error* DwgScl P1 P2 P3 P4 SPC TXT UFLAG)
  5.  (vl-load-com)
  6.  (defun *error* (msg)
  7.    (and uFlag (vla-EndUndoMark doc))
  8.    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
  9.        (princ (strcat "\n** Error: " msg " **")))
  10.    (princ))
  11.  (setq OldOS (getvar "osmode"))
  12.  (setq OldDynmode (getvar "dynmode"))
  13.  (setq OldDynprompt (getvar "dynprompt"))
  14.  (setvar "osmode" 33)
  15.  (setvar "dynmode" 1)
  16.  (setvar "dynprompt" 1)
  17.  (command "-insert" "C:/EC-Menu/Blocks/EC-standards.dwg" "0,0,0" "1" "1" "0" "explode" "")
  19.  (initget "1:20 1:25 1:50 1:100 1:150")
  20.  (setq DwgScl (getkword  "\n What is Drawing Scale? [1:20/1:25/1:50/1:100/1:150]"))
  21.  ;(setq StyleName (strcat "EC-22-" (rtos DwgScl)))
  22.  ;(setq DimName (strcat "EC-" (rtos dwgscl)))
  23.  (cond
  24.   ((= DwgScl 1:20)
  25.     (command "-style" EC-22-020 "" "" "" "" "" "" "")
  26.      (command "-dimstyle" "save" EC-020)) 
  27.   ((= DwgScl 1:25)
  28.     (command "-style" EC-22-025 "" "" "" "" "" "" "")
  29.      (command "-dimstyle" "save" EC-025)) 
  30.   ((= DwgScl 1:50)
  31.     (command "-style" EC-22-050 "" "" "" "" "" "" "")
  32.      (command "-dimstyle" "save" EC-050)) 
  33.   ((= DwgScl 1:100)
  34.     (command "-style" EC-22-100 "" "" "" "" "" "" "")
  35.      (command "-dimstyle" "save" EC-100))
  36.   ((= DwgScl 1:150)
  37.     (command "-style" EC-22-150 "" "" "" "" "" "" "")
  38.      (command "-dimstyle" "save" EC-150))
  39.   (t (coldim)))
  41.  (setq doc (cond (doc) ((vla-get-ActiveDocument
  42.                           (vlax-get-Acad-Object))))
  43.        spc (if (zerop (vla-get-activespace doc))
  44.              (if (= (vla-get-mspace doc) :vlax-true)
  45.                (vla-get-modelspace doc)
  46.                (vla-get-paperspace doc))
  47.              (vla-get-modelspace doc)))
  48.  (while (and (setq p1 (getpoint "\nPick Axes Crossing Point: "))
  49.              (setq p2 (getpoint "\nPick Corner Point: ")))
  50.      (setq uFlag (not (vla-StartUndoMark doc)))
  51.      (apply (function vla-AddDimRotated)
  52.             (append (list spc)
  53.                     (mapcar
  54.                       (function vlax-3D-point)
  55.                       (list (setq  p3 (list (car p1) (cadr p2) (caddr p1))) p2
  56.                             (polar p3 (angle p1 p3) (* DwgScl )))
  57.       '(0.)))
  58.    (apply (function vla-AddDimRotated)
  59.             (append (list spc)
  60.                     (mapcar
  61.                       (function vlax-3D-point)
  62.                       (list p2 (setq  p4 (list (car p2) (cadr p1) (caddr p1)))
  63.                                (polar p4 (angle p1 p4) (* DwgScl )))
  64.                     (list (/ pi 2.))))
  66.    (setq uFlag (vla-EndUndoMark doc))
  67.    ) ; while
  68. ; Restore OSmode 
  69.  (setq *error* TERR$)
  70.  (setvar "osmode" OldOS)
  71.  (setvar "dynmode" OldDynmode)
  72.  (setvar "dynprompt" OldDynprompt)
  74.  (princ "\nProgram completed and will now restore the user settings and exit.")
  75.  )

 
这就是故事。
回复

使用道具 举报

rkmcswain

24

主题

1265

帖子

1028

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
362
发表于 2022-7-6 12:20:13 | 显示全部楼层
 
姆萨苏尽可能清楚地表达了这一点。
 
（getkword）返回一个字符串，但在下一行中，您将在（rtos）函数中使用该变量，该函数需要一个实数。
 
如果您还没有，请帮自己一个忙，使用VLIDE编辑和调试代码。这样的错误很容易识别和纠正。
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 12:24:23 | 显示全部楼层 
  1. (initget 0 "20 25 50 100 150")
  2. (if (setq DwgScl (getkword "\nSpecify Drawing Scale [20/25/50/100/150]: 1:"))
  3.  (progn
  4.    (command "_.-style" (strcat "EC-22-" DwgScl) "" "" "" "" "" "" "")
  5.    (if (> 3 (strlen DwgScl))
  6.      (command "_.-dimstyle" "_save" (strcat "EC-0" DwgScl))
  7.      (command "_.-dimstyle" "_save" (strcat "EC-" DwgScl)))))

 
这样的事情会不会让事情变得简单一点？
回复

使用道具 举报

asos2000

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-6 12:37:29 | 显示全部楼层
艾伦是的，比以前容易多了
 
我试着这么做，但我没有找到DXF dimstyle代码（或变量）来设置textstyle
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 12:40:22 | 显示全部楼层
也许是DIMTXSTY？
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-6 02:26 , Processed in 0.423400 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表