Re: CAD使用六则
顶一下,谢谢分享!Re: CAD使用六则
谢了,刚都照着做了一遍,受益啊Re: CAD使用六则
楼主您能告诉我CAD R14绘制的图纸到CAD2005里的比例如何设置?见图我要改别人的图纸可是在CAD2005里的比例我不知道如何设置。
Re: CAD使用六则
我经常用ACAD画表格, 原因我不大会玩EXCEL和WORD, 上次领导同时安排一个玩EXCEL的和我做一个工程进度表, 结果我先做出来了, 他没做出来, 我也用ACAD写过图文报告, 我用ACAD2005不用变背景, 进入WORD是白底的. 下面是我编的一个LISP, 可以一次输入一列:(DEFUN C:WF( / R S H P0 FI F SK W)
(setvar "highlight" 0)
(setvar "cmdecho" 0)
(SETQ FI (GETSTRING "\n文件名:"))
(SETQ F (OPEN FI "r"))
(IF F (PROGN
(SETQ H (GETREAL "\n文字高度:"))
(if (null K) (SETQ SK (GETREAL "\n绘图比例:")) (setq SK K))
(SETQ R (GETINT "\n行数:"))
(SETQ W (GETREAL "\n行间距:"))
(SETQ P0 (GETPOINT "\n文本插入点:"))
(REPEAT R
(SETQ S (READ-LINE F))
(COMMAND "TEXT" P0 (* H SK) 0 S )
(SETQ P0 (LIST (CAR P0) (-(CADR P0) (* sk w))))
)
(CLOSE F)
)
(PROGN
(PRINC "\007\n文件 ")
(PRINC FI)
(PRINC " 没有找到!!!")
)
)
(setvar "highlight" 1)
(setvar "cmdecho" 1)
(princ)
)