找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 409|回复: 2

[求助] 再提钢筋对齐

[复制链接]

已领礼包: 466个

财富等级: 日进斗金

发表于 2018-9-17 17:39:23 | 显示全部楼层 |阅读模式

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

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

×
原来的在我们论坛发布了一个提问,当时有论坛同仁给写了一个,现在想用简单LISP格式的,麻烦论坛同仁给解决一下。
原来请人写了一个,但是现在运行出问题了。也不知道怎么回事,在家里的电脑上用的时候可以,到公司电脑上就不能对齐钢筋了。
请用另外的方法做一个。
(defun c:gja ()
  (setvar "cmdecho" 0)
        (setq old-osmode (getvar "osmode"))
        (setvar "osmode" 0)
  (while(= (setq endate(car(entsel "选择对齐的基准钢筋:"))) nil))
  (setq datelst(entget endate))
  (setq jptlst(get10date datelst))
  (setq ang(angle(car jptlst)(car (reverse jptlst))))
  (setq pta(car jptlst))
  (while(= 1 1)
    (print "选择需要对齐的钢筋(包括文字):")
    (setq ass(ssget))
    (setq enss(mapcar 'cadr (cdr(reverse(ssnamex ass)))))
    (setq n 0)
    (repeat (length enss)
      (setq en(nth n enss))
      (if(equal "LWPOLYLINE" (cdr(assoc 0 (entget en))))
        (setq qptlst(get10date (entget en)))
                        )
      (setq n(1+ n))
                )
    (if(or(equal ang 0 0.001)(equal ang (* 1 pi) 0.001))
      (progn
        (command "_.move" ass "" (car qptlst) (list(car(car qptlst))(cadr(car jptlst))))
                        )
      (progn
        (command "_.move" ass "" (car qptlst) (list(car(car jptlst))(cadr(car qptlst))))
                        )
                );if结束
        )
  (setvar "osmode" old-osmode)
  (prin1)
)
(defun get10date( datelst / ptlst x )
  (setq ptlst '())
  (mapcar '(lambda(x)
                                                 (if(= 10 (car x))(setq ptlst(cons (cdr x) ptlst)))
                                         )
                datelst
        )
  (reverse ptlst)
)

(defun *error* (msg)
  (setvar "osmode" old-osmode)
)

对齐错误.gif

钢筋对齐.zip

21.54 KB, 下载次数: 3, 下载积分: D豆 -1 , 活跃度 1

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

已领礼包: 466个

财富等级: 日进斗金

 楼主| 发表于 2018-9-17 17:44:50 | 显示全部楼层
该怎么操作才能去掉附件下载需要积分的?让人解决问题附件还收费就太不好了。请管理员给取消了吧。或者告诉我方法。在别的论坛上也可以下载附件,不收费。http://bbs.mjtd.com/thread-178223-1-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 85个

财富等级: 招财进宝

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 05:44 , Processed in 0.361405 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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