找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 750|回复: 3

[求助] [求助]:本人有一lisp但不能用,不知错在何处?望指点。

[复制链接]
发表于 2007-5-10 23:29:57 | 显示全部楼层 |阅读模式

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

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

×
(defun c:lsp_14()
   (setvar "cmdecho" 0)
   (setq en (car (entsel "\n选取线: ")))
   (setq nn (getint "\n重复次数<5>: "))
   (if (null nn) (setq nn 5))
   (setq endata (entget en))
   (setq pt_10 (cdr (assoc 10 endata)))
   (setq pt_11 (cdr (assoc 11 endata)))
   (setq ang (angle pt_10  pt_11))
   (setq dd (distance pt_10  pt_11))
   (setq bas1 pt_10)
   (setq dd_nn (/ dd nn))
   (command "pline" bas1 "a" "a" 180)
   (repeat nn
     (setq bas2 (polar bas1 ang dd_nn))
     (command bas2)
     (setq bas1 bas2)
   )
   (command "")
   (entdel en)
   (prin1)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-5-12 00:36:59 | 显示全部楼层
;;请试一下以下程序
(DEFUN c:ttt ( / en nn endata pt_10 pt_11 ang ang1 dd bas1 dd_nn bas2)
  (SETVAR "cmdecho" 0)
  (SETQ en (CAR (ENTSEL "\n&Ntilde;&iexcl;&Egrave;&iexcl;&Iuml;&szlig;: ")))
  (SETQ nn (GETINT "\n&Ouml;&Oslash;&cedil;&acute;&acute;&Icirc;&Ecirc;&yacute;<5>: "))
  (IF (NULL nn)
    (SETQ nn 5)
  )
  (SETQ endata (ENTGET en))
  (SETQ pt_10 (CDR (ASSOC 10 endata)))
  (SETQ pt_11 (CDR (ASSOC 11 endata)))
  (SETQ ang (ANGLE pt_10 pt_11))
  (SETQ dd (DISTANCE pt_10 pt_11))
  (SETQ bas1 pt_10)
  (SETQ dd_nn (/ dd nn))
  (SETQ ang1 (/ (* ang 180) PI))
  (COMMAND "pline" bas1 "a" "a" 180
           (REPEAT nn
             (SETQ bas2 (POLAR bas1 ang dd_nn))
             (COMMAND bas2)
             (SETQ bas1 bas2)
           )
  )
  (COMMAND "")
  (ENTDEL en)
  (PRIN1)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2007-7-21 14:57:36 | 显示全部楼层
你不应该发在这个版块。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-7-25 13:13:48 | 显示全部楼层
是啊,应该把这个贴移到
“※AutoLISP/VLISP 开发技术※”
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-17 07:45 , Processed in 0.550591 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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