改了俩代码，画保温岩面&防火岩面，长度厚度随意输

鲑鱼扬帆

前几天猛然发现电脑里有一个绘制保温棉的代码，我自己拿来修改了修改并建了两个防火棉和保温棉的DWG，其实就是minsert的运用极简单，我真的很穷，但是在明经学了这么多怎么能收钱呢我真的穷死了 这烂代码你愿意给我币吗，将FH.dwg及BW.dwg放置到CAD的支持路径哦需要

hdq741116723

哥么，你这个有点复杂，CAD里面有个线型：BATTING,这个线型就是和你防火棉一样的，你可以做一个画线型的LISP,然后直接修改宽度就可以了，你改图的时候还能无限拉伸，这个挺好的，我公司就是用这种，我不知道是怎么做的，有这么一回事。

鲑鱼扬帆

同时代码已经被我改烂了 有高手愿意修改的数据极准确那就更好了

cxs259

挺不错的，不过有点乱

cxs259

挺不错的，不过有点乱

鲑鱼扬帆

cxs259 发表于 2014-8-26 20:21
挺不错的，不过有点乱

是画出来的乱还是代码乱啊 代码乱是正常的 因为那是我改的 哈哈 如果画出来的乱那就有问题了

cxs259

不单单是乱，而是出现失效，
看看是什么原因
命令:
命令: bwm

请指定保温岩棉的起始点:
The First Point 1: The Two Point 2:
请输入保温岩棉的厚度: 50

"BW.dwg": 在搜索路径中未找到文件:
  C:\Program Files\AutoCAD 2008\(当前目录)
  C:\Users\ChenXusheng\AppData\Roaming\Autodesk\AutoCAD 2008\R17.1\chs\support\
  C:\Program Files\AutoCAD 2008\support\
  C:\Program Files\AutoCAD 2008\fonts\
  C:\Program Files\AutoCAD 2008\help\
  C:\Program Files\AutoCAD 2008\express\
  C:\Program Files\AutoCAD 2008\support\color\
  C:\Program Files\AutoCAD 2008\drv\
*无效*
*取消*
*取消*

鲑鱼扬帆

cxs259 发表于 2014-8-27 08:39
不单单是乱，而是出现失效，
看看是什么原因
命令:

将FH.dwg及BW.dwg放置到CAD的支持路径哦需要
帖子里已经说明了哦 添加之后你再试一下就没问题了

cxs259

哦，太麻烦了，看看下面，很久的

;;; fang-huo-mian(防火棉)

(defun c:fhm()
(command "osnap" "nea")
(command "layer" "set" "color4" "")
(command "color" "4")
(setq pt1 (getpoint "enter the start point:"))
(setq ptst pt1)
(setq ptend (getpoint pt1 "enter the end point:"))
(setq dis1 (distance ptst ptend))
(setq ag1 (angle ptst ptend))
(setq pt0 (polar pt1 ag1 6.0))
(setq pt6 (polar pt1 ag1 12.0))
(setq pto1 (polar pt1 (+ 1.57 ag1) 6.0))
(setq pto2 (polar pt6 (+ 1.57 ag1) 6.0))
(setq pt2 (polar pt0 (+ 1.57 ag1) 6.0))
(setq pt3 (polar pt1 (+ 1.57 ag1) 44.0))
(setq pt5 (polar pt6 (+ 1.57 ag1) 44.0))
(setq pto3 (polar pt0 (+ 1.57 ag1) 44.0))
(command "osmode" "0")
(command "arc" "c" pto1 pt1 pt2 "")
(command "arc" "c" pto2 pt2 pt6 "")
(command "pline" pt2 pt3 "")
(command "pline" pt2 pt5 "")
(command "arc" "c" pto3 pt5 pt3 "")
;;;
(setq dis2 (distance pt1 pt6))
(while (< dis2 dis1)
(setq pt1 pt6)
(setq pt0 (polar pt1 ag1 6.0))
(setq pt6 (polar pt1 ag1 12.0))
(setq pto1 (polar pt1 (+ 1.57 ag1) 6.0))
(setq pto2 (polar pt6 (+ 1.57 ag1) 6.0))
(setq pt2 (polar pt0 (+ 1.57 ag1) 6.0))
(setq pt3 (polar pt1 (+ 1.57 ag1) 44.0))
(setq pt5 (polar pt6 (+ 1.57 ag1) 44.0))
(setq pto3 (polar pt0 (+ 1.57 ag1) 44.0))
(command "arc" "c" pto1 pt1 pt2 "")
(command "arc" "c" pto2 pt2 pt6 "")
(command "pline" pt2 pt3 "")
(command "pline" pt2 pt5 "")
(command "arc" "c" pto3 pt5 pt3 "")
(setq dis2 (distance ptst pt6))
)
)

鲑鱼扬帆

6+44只能是50厚的是吗 好吧