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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：lsp问题出在哪里？
返回列表 发新帖
查看: 875|回复: 10

[求助] [求助]：lsp问题出在哪里？

[复制链接]
露水2
发表于 2005-10-7 18:02:46 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  2. (defun c:test(/ b ss n k en en_data name_list name cent rad)
  3.      (setq b (getint "多边行的边数:"))
  4.      (setq ss (ssget))
  5.      (setq n 0)
  6.      (setq k 0)
  7.    (repeat (sslength ss)
  8.        (setq en (ssname ss n))
  9.        (setq en_data (entget  en))
  10.        (setq name_list (assoc 0 en_data))
  11.        (setq name (cdr name_list))
  12.       (if (= name "CIRCLE")
  13.          (progn
  14.             (setq cent (cdr (assoc 10 en_data)))
  15.             (setq rad (cdr (assoc 40 en_data)))
  16.             (command "polygon" b cent "i" rad )
  17.             (setq n (+ 1 n))
  18.          )
  19.        )
  20.     (setq k (+ 1 k))
  21.    )
  22. (princ (strcat "选择物体的个数=" (itoa k)))
  23. (princ (strcat "\n其中圆的个数=" (itoa n)))
  24. (princ)

  26. )
setq, name, data

相关帖子

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

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2005-10-7 18:14:03 | 显示全部楼层
比较一下

  3. (defun c:test (/ b ss k en en_data cent rad oldos)
  4.   (if (and (setq b (getint "多边行的边数:"))
  5.            (setq ss (ssget '((0 . "circle")))) ;_过滤
  6.       ) ;_条件
  7.     (progn
  8.       (setq k (sslength ss) ;_选择集长度
  9.             n 0 ;_计数
  10.             oldos (getvar "osmode");_保存当前捕捉模式
  11.       )
  12.       (setvar "cmdecho" 0);_关闭命令行回显
  13.       (repeat k
  14.         (setq en      (ssname ss n)
  15.               en_data (entget en)
  16.         )
  17.         ;;(setq name_list (assoc 0 en_data))
  18.         ;;(setq name (cdr name_list))
  19.         ;;(if (= name "CIRCLE")
  20.         ;;  (progn
  21.         (setq cent (cdr (assoc 10 en_data));_圆心
  22.               rad  (cdr (assoc 40 en_data));_半径
  23.         )
  24.         (setvar "osmode" 0)
  25.         (command "polygon" b cent "i" rad)
  26.         (setq n (+ 1 n))
  27.         ;; )
  28.         ;;)
  29.         ;;(setq k (+ 1 k))
  30.       )
  31.       (setvar "osmode" oldos);;恢复捕捉
  32.     )
  33.   )
  34.   ;;(princ (strcat "选择物体的个数=" (itoa k)))
  35.   ;;(princ (strcat "\n其中圆的个数=" (itoa k)))
  36.   (princ)
  37. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-10-8 00:47:01 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. [FONT=courier new](load "xyp_lib")
  3. ;|加载通用函数(可在签名栏直接下载)
  4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  6. ★1·在acad.lsp中增加(load"xyp_lib")
  7. ■2·在每个程序内增加(load"xyp_lib")
  8. ■3·在command下，输入(load"xyp_lib")
  9. ■4·在菜单.mnl中增加(load"xyp_lib")
  10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  11. [COLOR=red] ★通用函数下载地址：[/COLOR]
  12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;

  15. ;;;圆内接正N边形
  16. (defun c:test ()
  17.   (CMDLA0)
  18.   (setvar "osmode" 0)
  19.   (setq        int (UINT 7 "" "\n多边形的边数" int)
  20.         ss  (ssget '((0 . "CIRCLE")))
  21.         i   -1
  22.   )
  23.   (repeat (sslength ss)
  24.     (setq s1  (ssname ss (setq i (1+ i)))
  25.           pt0 (dxf 10 (entget s1))
  26.           rad (dxf 40 (entget s1))
  27.     )
  28.     (command "_polygon" int pt0 "i" rad)
  29.   )
  30.   (CMDLA1)
  31. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjtdkj
发表于 2005-10-8 08:58:13 | 显示全部楼层
注意看下面的注释：

  3.   [FONT=courier new]
  4. (defun c:test (/)
  5.   (setq b (getint "多边行的边数:"))
  6.   (setq ss (ssget))
  7.   (setq n 0);选择集数量的起始值
  8.   (setq k 0);完成更新的圆数量起始值
  9.   (repeat (sslength ss)
  10.     (setq en (ssname ss n));这里用了N
  11.     (setq en_data (entget en))
  12.     (setq name_list (assoc 0 en_data))
  13.     (setq name (cdr name_list))
  14.     (if        (= name "CIRCLE")
  15.       (progn
  16.         (setq cent (cdr (assoc 10 en_data)))
  17.         (setq rad (cdr (assoc 40 en_data)))
  18.         (command "polygon" b cent "i" rad)
  19.         (setq k (+ 1 k));注意！这里应用K变量，
  20.       )
  21.     )
  22.     (setq n (+ 1 n));这里应用N量
  23.   )
  24.   (princ (strcat "选择物体的个数=" (itoa n)))
  25.   (princ (strcat "\n其中圆的个数=" (itoa k)))
  26.   (princ)

  28. )
  29.   [/FONT]

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

使用道具 举报

xyp1964
发表于 2005-10-8 09:59:43 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 yjtdkj 发布
[B]注意看下面的注释：[CODE]
  
(defun c:test (/)
  (setq b (getint "多边行的边数:"))
  (setq ss (ssget))
  (setq n 0);选择集数量的起始值
  (setq k 0);完成更新的圆数量起始值
  (re... [/B]

为什么不直接过滤圆物体：(setq ss (ssget '((0 . "CIRCLE"))))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjtdkj
发表于 2005-10-8 10:58:15 | 显示全部楼层
为了想得到选择对象的个数吧，
这只是一个练习而以
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

露水2
 楼主| 发表于 2005-10-8 16:48:59 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢
谢谢个位的解答
找到自己那里错了
刚学
瞎子过河
摸着石头过河
yjtdkj 兄太好了多交流
是的这是一个练习，刚开始实在不知道自己错在哪里了。
总觉的过程没有错，检查了好久。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

freeworld
发表于 2005-10-9 05:33:27 | 显示全部楼层
我最近也遇到同样问题，快来帮忙啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjtdkj
发表于 2005-10-9 08:06:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
那你把程序贴出来看看呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

露水2
 楼主| 发表于 2005-10-9 10:52:07 | 显示全部楼层
我用visullst检测的
初学lsp的要吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjtdkj
发表于 2005-10-9 13:39:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我也在用它，很方便，初学也需要的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-28 15:57 , Processed in 0.253293 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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