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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [求助]：关于画节点大样的问题
返回列表 发新帖
查看: 2172|回复: 10

[求助]：关于画节点大样的问题

[复制链接]
lennie
发表于 2005-3-2 19:43:57 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
对于lisp，偶是一只菜鸟，请各位大虾帮忙。

在画节点大样时需要画出粉刷层，也就是墙线用偏移命令偏移20左右。但这样墙线加粗时粉刷线也会加粗，所以要求偏移命令偏移后能把那根粉刷线设为0层。手工改太麻烦，做个程序应该比较容易的哦。请直接写出源码，谢谢了。
偏移, 粉刷, 大样

相关帖子

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

使用道具 举报

zxq0220

已领礼包: 11282个

财富等级: 富甲天下
发表于 2005-3-2 23:27:46 | 显示全部楼层
程序：

  3. (DEFUN C:OFFS (/ PT1 PT2 OLDOS)
  4. (SETVAR "CMDECHO" 0)
  5. (SETQ OLDOS (GETVAR "OSMODE"))
  6. (SETVAR "OSMODE" 0)
  7. (WHILE (SETQ PT1 (CADR (ENTSEL "\nSelect object to offset 选择物体偏移 :")))
  8.   (IF (SETQ PT2 (GETPOINT PT1 "\nSide to offset 偏移方向 :))
  9.    (COMMAND "OFFSET" "20" PT1 PT2 "" "CHANGE" "L" "" "P" "LA" "0" "")
  10.   )
  11. )
  12. (SETVAR "OSMODE" OLDOS)
  13. (SETVAR "CMDECHO" 1)
  14. (PRINC)
  15. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lengliqun
发表于 2007-8-25 00:43:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
CAD2004测试为未知命令，需此程序，可否改改？谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11282个

财富等级: 富甲天下
发表于 2007-8-25 19:52:32 | 显示全部楼层
本帖最后由 zxq0220 于 2014-7-26 19:20 编辑

少了个双引号。

  3. (DEFUN C:OFFS (/ PT1 PT2 OLDOS)
  4. (SETVAR "CMDECHO" 0)
  5. (SETQ OLDOS (GETVAR "OSMODE"))
  6. (SETVAR "OSMODE" 0)
  7. (WHILE (SETQ PT1 (CADR (ENTSEL "\nSelect object to offset 选择物体偏移 :")))
  8.   (IF (SETQ PT2 (GETPOINT PT1 "\nSide to offset 偏移方向 :"))
  9.    (COMMAND "OFFSET" "20" PT1 PT2 "" "CHANGE" "L" "" "P" "LA" "0" "")
  10.   )
  11. )
  12. (SETVAR "OSMODE" OLDOS)
  13. (SETVAR "CMDECHO" 1)
  14. (PRINC)
  15. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

gysjy
发表于 2007-8-27 21:34:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
修改一下，可减少一步，更快捷一些：

  3.   [FONT=courier new]
  4. (DEFUN C:OFFS (/ SN OLDOS)
  5. (SETVAR "CMDECHO" 0)
  6. (SETQ OLDOS (GETVAR "OSMODE"))
  7. (SETVAR "OSMODE" 0)
  8. (WHILE (SETQ  SN (ENTSEL "\nSelect object to offset 选择物体偏移 :"))
  9.    (COMMAND "OFFSET" "20" SN (CADR SN) "" "CHANGE" "L" "" "P" "LA" "0" "")
  10. )
  11. (SETVAR "OSMODE" OLDOS)
  12. (SETVAR "CMDECHO" 1)
  13. (PRINC)
  14. )
  15.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

gysjy
发表于 2007-8-27 21:34:23 | 显示全部楼层
修改一下，可减少一步操作，更快捷一些：

  3.   [FONT=courier new]
  4. (DEFUN C:OFFS (/ SN OLDOS)
  5. (SETVAR "CMDECHO" 0)
  6. (SETQ OLDOS (GETVAR "OSMODE"))
  7. (SETVAR "OSMODE" 0)
  8. (WHILE (SETQ  SN (ENTSEL "\nSelect object to offset 选择物体偏移 :"))
  9.    (COMMAND "OFFSET" "20" SN (CADR SN) "" "CHANGE" "L" "" "P" "LA" "0" "")
  10. )
  11. (SETVAR "OSMODE" OLDOS)
  12. (SETVAR "CMDECHO" 1)
  13. (PRINC)
  14. )
  15.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

lengliqun
发表于 2007-8-29 09:37:44 | 显示全部楼层
CAD2004测试成功，各有方便处，谢谢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

金鹅起飞
发表于 2013-9-5 13:57:11 | 显示全部楼层
谢谢各位大师，您们写的程序太牛了，向您们学习！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-20 08:06 , Processed in 0.336408 second(s), 50 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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