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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]大家帮我看看问题在哪里
返回列表 发新帖
查看: 1070|回复: 0

[求助]大家帮我看看问题在哪里

[复制链接]
piao1887
发表于 2009-8-3 09:59:00 | 显示全部楼层 |阅读模式
  2. (defun c:zyzj ()
  3.   (setq dimzin (getvar "dimzin"))
  4.   (setvar "dimzin" 0)
  5.   (setq fact (getreal "\n全加（1），部分（0）？_(0)?"))
  6.   (if (not fact)
  7.     (setq fact 0)
  8.   )
  9.   (setq ss (ssget "X" '((8 . "*LINE"))))
  10.   (if (/= ss nil)
  11.     (progn
  12.       (setq n 0)
  13.       (setq num (sslength ss))
  14.       (while (< n num)
  15. (setq ent (ssname ss n))
  16. (setq ent1 (vlax-ename->vla-object ent))
  17. (setq objname (vla-get-ObjectName ent1))
  18. (setq tcm (vla-get-Layer ent1))
  19. (setq gxlb (substr tcm 1 2))
  20. (setq long (vla-get-length ent1))
  21. (SETQ tc (STRCAT gxlb "MARK"))
  22. (setvar "CLAYER" tc)
  23. (setq xdata (entget ent '("xdata1")))
  24. (setq xdata (cdr (last (last (last xdata)))))
  25. (setq xdata0 (ln1_lst xdata ","))
  26. (setq spnt (nth 17 xdata0))
  27. (setq epnt (nth 18 xdata0))
  28. (setq material (nth 11 xdata0))
  29. (setq dsize (nth 12 xdata0))
  30. (setq hole (nth 13 xdata0))
  31. (setq xh (vl-string-position (ascii "/") hole))
  32. (setq hole (substr hole 1 xh))
  33. (setq hole (strcat hole "孔"))
  34. (setq cab (nth 16 xdata0))
  35. (if (= (vl-string-position (ASCII "/") CAB) NIL)
  36.    (setq cab (strcat cab "根"))
  37. )
  38. (setq prange (nth 15 xdata0))
  39. (setq tgcc (nth 26 xdata0))
  40. (setq type1 (nth 9 xdata0))
  41. (setq data0 (strcat spnt "," epnt))
  42. (if (OR (= gxlb "JS")
  43.   (= gxlb "YS")
  44.   (= GXLB "WS")
  45.   (= GXLB "HS")
  46.   (= GXLB "GY")
  47.      )
  48.    (progn
  49.      (setq Xposizion (vl-string-position (ascii "X") dsize))
  50.      (if (= xposizion nil)
  51.        (setq dsize (strcat "DN" dsize))
  52.      )
  53.      (setq txt (strcat material " " dsize))
  54.    )
  55. )
  56. (IF (or (= gxlb "MQ")
  57.   (= GXLB "TQ")
  58.   (= GXLB "YQ")
  59.      )
  60.    (PROGN
  61.      (setq xposizion (vl-string-position (ascii "X") dsize))
  62.      (if (= xposizion nil)
  63.        (setq dsize (strcat "DN" dsize))
  64.      )
  65.      (setq txt (strcat material " " dsize " " prange))
  66.    )
  67. )
  68. (if (or (= gxlb "RS")
  69.   (= GXLB "ZQ")
  70.      )
  71.    (PROGN
  72.      (setq xposizion (vl-string-position (ascii "X") dsize))
  73.      (if (= xposizion nil)
  74.        (setq dsize (strcat dsize "+" tgcc))
  75.      )
  76.      (setq txt (strcat material " " dsize))
  77.    )
  78. )
  79. (if (or (= gxlb "GD")
  80.   (= GXLB "LD")
  81.   (= GXLB "XD")
  82.      )
  83.    (progn
  84.      (if (= material "")
  85.        (setq material "空管")
  86.      )
  87.      (setq xposizion (vl-string-position (ascii "X") DSIZE))
  88.      (if (= xposizion nil)
  89.        (setq dsize (strcat "Φ" dsize))
  90.      )
  91.      (if (= type1 "0")
  92.        (setq txt (strcat material " " dsize " " cab " " prange))
  93.      )
  94.      (if (/= type1 "0")
  95.        (setq txt (strcat material " " dsize " " hole " " prange))
  96.      )
  97.    )
  98. )
  99. (if (or (= gxlb "DX")
  100.   (= gxlb "YX")
  101.   (= gxlb "LX")
  102.   (= gxlb "JX")
  103.   (= GXLB "BX")
  104.   (= GXLB "KX")
  105.   (= GXLB "TV")
  106.      )
  107.    (progn
  108.      (if (= material "")
  109.        (setq material "空管")
  110.      )
  111.      (setq xposizion (vl-string-position (ascii "X") DSIZE))
  112.      (if (= xposizion nil)
  113.        (setq dsize (strcat "Φ" dsize))
  114.      )
  115.      (if (= type1 "0")
  116.        (setq txt (strcat material " " dsize " " cab))
  117.      )
  118.      (if (/= type1 "0")
  119.        (setq txt (strcat material " " dsize " " hole))
  120.      )
  121.    )
  122. )
  123. (if (> long 20)
  124.    (progn
  125.      (setq qdzb (vla-get-startpoint ent1))
  126.      (setq qdzb (vlax-variant-value qdzb))
  127.      (setq xq (vlax-safearray-get-element qdzb 0))
  128.      (setq yq (vlax-safearray-get-element qdzb 1))
  129.      (setq zdzb (vla-get-endpoint ent1))
  130.      (setq zdzb (vlax-variant-value zdzb))
  131.      (setq xz (vlax-safearray-get-element zdzb 0))
  132.      (setq yz (vlax-safearray-get-element zdzb 1))
  133.      (setq qdzb (list xq yq 0))
  134.      (setq zdzb (list xz yz 0))
  135.      (setq zjjd (angle qdzb zdzb))
  136.      (if (and (> zjjd (/ pi 2))
  137.        (< zjjd (* pi 1.5))
  138.   )
  139.        (progn
  140.   (setq ss qdms)
  141.   (setq qdms zdms)
  142.   (setq zdms ss)
  143.   (setq zjjd (- zjjd pi))
  144.        )
  145.      )
  146.      (if (= fact 1)
  147.        (progn
  148.   (setq xzj (/ (+ xq xz) 2))
  149.   (setq yzj (/ (+ yq yz) 2))
  150.        )
  151.      )
  152.      (if (= fact 0)
  153.        (progn
  154.   (setq yzj (atof (nth 22 xdata)))
  155.   (setq xzj (atof (nth 23 xdata)))
  156.        )
  157.      )
  158.      (if (and (/= xzj 0) (/= yzj 0))
  159.        (progn
  160.   (setq zjzb (list xzj yzj 0))
  161.   (setq zjzb (vlax-3d-point zjzb))
  162.   (setq zj1 (vla-addtext (model-space) txt zjzb 0.8))
  163.   (setq
  164.     exdata
  165.      (list (list -3 (list "xdata1" (cons '1000 xdata))))
  166.   )
  167.   (setq exdata0
  168.          (list (list -3 (list "LNUMBER" (cons '1000 data0))))
  169.   )
  170.   (setq lastent (entget (entlast)))
  171.   (setq newdata
  172.          (append lastent exdata)
  173.   )
  174.   (entmod newdata)
  175.   (setq newdata0
  176.          (append lastent exdata0)
  177.   )
  178.   (entmod newdata0)
  179.   (vlax-put-property
  180.     ZJ1
  181.     'VerticalAlignment
  182.     acVerticalAlignmentBottom
  183.   )
  184.      ;垂直下对齐
  185.   (vlax-put-property
  186.     ZJ1
  187.     'HorizontalAlignment
  188.     acHorizontalAlignmentCenter
  189.   )
  190.      ;水平中对齐
  191.   (vla-put-TextAlignmentPoint ZJ1 ZJZB)
  192.      ;对齐点
  193.   (vla-put-Rotation zj1 zjjd)
  194.        )
  195.      )
  196.    )
  197. )
  198. (setq n (+ n 1))
  199.       )
  200.     )
  201.   )
  202.   (setvar "dimzin" dimzin)
  203.   (setvar "CLAYER" "0")
  204.   (princ)
  205. )
大家帮我看看这段代码 我需要实现的是从线的扩展数据中读取一定的字符串 然后标注到线段的中间位置， 但是循环读取选择集选择之后读取第二条线时，第三条读取就会失败 但是我单独读取第三条线 可以读出来 大家帮我看看问题出在哪里

本帖子中包含更多资源

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

x
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-10-1 09:38 , Processed in 0.141120 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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