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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD软件 › AutoCAD 使用技术 › [求助]：请问波浪线是怎么画出来的？
123
返回列表 发新帖
楼主: piggylele

[求助]：请问波浪线是怎么画出来的？

[复制链接]
MacroLiu
发表于 2003-12-23 12:55:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
以前我也见过及用过一个波浪线的LISP程序，还不错，我也试试这个看如何？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jxsqq
发表于 2003-12-23 13:16:44 | 显示全部楼层
我用不了，是不是我没有装VBA的原因
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ahlzl
发表于 2003-12-23 13:42:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 jxsqq 发布
[B]我用不了，是不是我没有装VBA的原因 [/B]

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

使用道具 举报

prettyseth
发表于 2003-12-23 13:53:34 | 显示全部楼层
最初由 木桂水 发布
[B]可以用pl画，然后用fit命令。 [/B]



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

使用道具 举报

yucheng920
发表于 2005-1-11 11:23:29 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 ahlzl 发布
[B]
代码不能在记事本中粘贴，再存为dvb文件。
... [/B]

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

使用道具 举报

ahlzl
发表于 2005-1-11 12:18:25 | 显示全部楼层
最初由 yucheng920 发布
[B]
我照斑主的方法去做，可还是提示DVB文件出错，是什么原因呢？ [/B]

先用19楼的现成文件。
另，请看：http://www.xdcad.net/forum/showthread.php?threadid=195847
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

zhynt
发表于 2005-2-20 14:18:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这是我以前贴的，但不知道放哪里了，再贴一下。


  3.   [FONT=courier new]
  4. ;;;波浪线绘制程序
  5. ;;;作者：张越 03.11.13
  6. (defun c:blx (/ boch pt pt1 pt2 pt3 dist lis ang0 ang)
  7.   (SETQ OLDOS (GETVAR "OSMODE"))
  8.   (if (= bofu nil)
  9.     (setq bofu1 20)
  10.   )
  11.   (if (= bochang nil)
  12.     (setq bochang1 50)
  13.   )
  14.   (if (/= (setq oldcmd (getvar "cmdecho")) 0)
  15.     (setvar "cmdecho" 0)
  16.   )
  17.   (prompt "\n请输入波幅<")
  18.   (princ bofu1)
  19.   (if (= (setq bofu (getreal ">:")) nil)
  20.     (setq bofu bofu1)
  21.     (setq bofu1 bofu)
  22.   )
  23.   (prompt "\n请输入波长<")
  24.   (princ bochang1)
  25.   (if (= (setq bochang (getreal ">:")) nil)
  26.     (setq bochang bochang1)
  27.     (setq bochang1 bochang)
  28.   )
  29.   (initget "Yes No")
  30.   (setq id (getkword "\n是否重新计算波长？Yes <No>:"))
  31.   (if (= id nil)
  32.     (setq id "No")
  33.   )
  34.   (if (setq pt1 (getpoint "\n开始画波浪线(回车退出):"))
  35.     (progn
  36.       (while (setq pt2 (getpoint pt1 "\n下一点(回车退出):"))
  37.         (setq dist (distance pt1 pt2))
  38.         (setq ang0 (angle pt1 pt2))
  39.         (setq n (fix (/ dist bochang)))
  40.         (while (= n 0)
  41.           (prompt "\n该段长度比波长小，请重新输入:")
  42.           (setq pt2 (getpoint pt1 "\n下一点(回车退出):"))
  43.           (if (/= pt2 nil)
  44.             (progn
  45.               (setq dist (distance pt1 pt2))
  46.               (setq ang0 (angle pt1 pt2))
  47.               (setq n (fix (/ dist bochang)))
  48.             )
  49.             (setq n nil)
  50.           )
  51.         )
  52.         (if (/= pt2 nil)
  53.           (progn
  54.             (if        (= id "No")
  55.               (setq boch (/ bochang 4))
  56.               (setq boch (/ dist (* n 4)))             
  57.             )
  58.             (setq dist (sqrt (+ (* boch boch) (* bofu bofu))))
  59.             (setq lis (list (atan bofu boch)
  60.                             (- 0 (atan bofu boch))
  61.                             (- 0 (atan bofu boch))
  62.                             (atan bofu boch)
  63.                       )
  64.             )
  65.             (setq pt3 pt1)
  66.             (IF        (< (- OLDOS 16384) 0)
  67.               (SETVAR "OSMODE" (+ OLDOS 16384))
  68.             )
  69.             (command "spline" pt1)
  70.             (repeat n
  71.               (foreach ang lis
  72.                 (setq pt (polar pt3 (+ ang0 ang) dist))
  73.                 (setq pt3 pt)
  74.                 (command pt)
  75.               )
  76.             )
  77.             (command "" "" "")
  78.             (setq pt1 pt)
  79.             (SETVAR "OSMODE" OLDOS)
  80.           )
  81.         )
  82.       )
  83.     )
  84.   )
  85.   (SETVAR "OSMODE" OLDOS)
  86.   (setvar "cmdecho" OLDCMD)
  87. )

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

使用道具 举报

亲嘴鱼
发表于 2005-2-22 09:49:18 | 显示全部楼层
3楼的方法有点意思
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xf200
发表于 2005-2-26 21:21:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这么多的程序，不知道用哪一个好。先把活雷锋斑竹的程序用一下。有谁都比较了一下的？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-18 21:54 , Processed in 0.448873 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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