第一,谨伍散由于下载过程中,系统的软件的源代码发生丢失,导致系统无法被识别,出现错误。
第二,由于软件在安装完橘碰毕后,子文件或者执行程序的文件收到损坏,导致系祥氏统无法运行这个软件,从而导致出现错误,
第三,由于系统与软件当前版本不兼容导致。
希望能帮到您。
pl回车。输入线起点宽度(XX)回车。输入线终点宽度(XX)回车。这两个蚂纤并数要一样。适用竖备于少量线加粗。多数线变粗的话有个命令。但是不是CAD自带的。闷迹可以自己做,但是要作成AutoLISP 应用程序源代码的类型。后缀为LSP。打开此命令是用记事本。大概可以用相同的文件改,代码在下面。改好以后命名为CW。作好后放在安装的cad2002\Support文件夹下就可以了。用法:(load“cw”)回车,cw回车,输入线宽回车,选择要变宽的线即可。代码如下:(希望你能看懂哈哈。。)(defun absang(ang)(while (>ang (* 2.0 pi)) (setq ang (- ang (* 2.0 pi))))
(if (<ang 0)( setq ang (+ (* 2.0 pi) ang ))ang))
(defun c:cw(/ length pick width wdlist whlist n pickn pickout flag dpcen ang1
ang2 rad dp1 dp2 atan ch0 listpl entpl entver entver1 entver2 entlist1 entlist2 nn)
(princ"\n 欢迎使用CW小程序.")(princ"\n本程序可以将多条多义线或是单线的宽度进行改变:")(initget 1)
(setq width (getreal "\n请输入所需宽度:"))(setq wdlist (cons 40 width))
(setq whlist (cons 41 width))(princ"\n请选择多义线或是单线:")(setq pick (ssget))
(if (not pick)(progn (princ "\n怎么什么也没选呢?我不干了!")(exit)))
(setq length (sslength pick))(setq n 0)(setq nn 0)(repeat length
(setq pickn (ssname pick n))(setq n (1+ n))(setq pickout (entget pickn))
(cond((equal (cdr (assoc '0 pickout)) "POLYLINE")
(setq pickout (subst wdlist (assoc '40 pickout) pickout) pickout (subst whlist (assoc '41 pickout) pickout))
(entmod pickout)(setq flag 1)(while flag (setq pickn (entnext pickn )
pickout (entget pickn))(cond ((equal (cdr (assoc '0 pickout)) "VERTEX")
(setq pickout (subst wdlist (assoc '40 pickout) pickout)
pickout (subst whlist (assoc '41 pickout) pickout))(entmod pickout))
((equal (cdr (assoc '0 pickout)) "SEQEND")(setq flag nil)))))
((equal (cdr (assoc '0 pickout)) "ARC")(setq dpcen (cdr (assoc '10 pickout))
ang1 (cdr (assoc '50 pickout))ang2 (cdr (assoc '51 pickout)) rad (cdr (assoc '40 pickout))
dp1 (polar dpcen ang1 rad)dp2 (polar dpcen ang2 rad)atan (/ (absang (- ang2 ang1)) 4.0)
atan (/ (sin atan) (cos atan)) ch0 (cdr (assoc '8 pickout)))
(setq listpl '((210 0.0 0.0 1.0)(71 . 0)(72 . 0)(73 . 0)(74 . 0)(75 . 0))
entpl (cons wdlist (cons whlist listpl)) entpl (cons '(10 0.0 0.0 0.0) entpl)
entpl (cons '(70 . 0)entpl)entpl (cons '(66 . 1)entpl)entpl (cons (cons 8 ch0)entpl)
entpl (cons '(0 . "POLYLINE") entpl))(entmake entpl)
(setq entver '((70 . 0)(50 . 0.0)(71 . 0)(72 . 0)(73 . 0)(74 . 0))
entver (cons (cons 42 atan) entver )entver (cons wdlist (cons whlist entver))
entver (cons (cons 8 ch0)entver )entver1(cons (cons 10 dp1)entver )
entver2(cons (cons 10 dp2)entver)entver1(cons '(0 . "VERTEX") entver1)
entver2(cons '(0 . "VERTEX") entver2))(entdel pickn)(entmake entver1)
(entmake entver2)(entmake '((0 . "SEQEND"))))
((equal (cdr (assoc '0 pickout)) "LINE")(setq dp1 (cdr (assoc '10 pickout))
dp2 (cdr (assoc '11 pickout))ch0 (cdr (assoc '8 pickout)))(entdel pickn)
(setq entlist1 '((71 . 0)(72 . 0)(73 . 0)(74 . 0)(75 . 0)) entlist2 '((71 . 0)(72 . 0)(73 . 0)(74 . 0)))
(setq entpl (cons '(210 0.0 0.0 1.0) entlist1) entpl (cons wdlist (cons whlist entpl))
entpl (cons '(10 0.0 0.0 0.0) entpl) entpl (cons '(70 . 0) entpl) entpl (cons '(66 . 1) entpl)
entpl (cons (cons 8 ch0) entpl) entpl (cons '(0 . "POLYLINE") entpl))
(entmake entpl)(setq entver(cons '(50 . 0.0) entlist2) entver(cons '(70 . 0) entver )
entver(cons '(42 . 0.0) entver ) entver(cons wdlist (cons whlist entver))
entver(cons (cons 8 ch0) entver) entver1(cons (cons 10 dp1)entver)
entver1(cons '(0 . "VERTEX") entver1))(entmake entver1)
(setq entver2(cons (cons 10 dp2)entver) entver2(cons '(0 . "VERTEX") entver2))
(entmake entver2)(entmake '((0 . "SEQEND"))))(pickn (setq nn (1+ nn)))))(redraw)
(if (>nn 0)(progn(princ "\n顺利完成")(princ "\n选择集中共有 ")(princ nn)(princ " 个不是弧,单线,多义线的实体,未做处理.")))
(princ))
版本错误。
天正安装好后打开这个代码是因为版本错误,这个需要重新到安全网站进行下载,注意正常版本是不会出码卜现这种情况的,因此在下载时要注意鉴别网站。
另外天正建筑软件是一款利用AutoCAD图形平台开发的最新一代建筑软件,可以用于建筑图像制作的专业软件,用户可以使用这个软件提升建筑方面的工程设计效率。
扩展资料:
T20天正建筑v5.0是天正公司利用AutoCAD图答昌形平台开发的最新版,继续以先进的建筑对象概念服务于建筑施工图设计,成为建筑行业规范绘图的首选软件。
另外T20天正建筑V5.0支持AutoCAD版本2019-2020,32位和64位。t20天正建筑是国内迟举穗比较著名的CAD软件,支持图纸设计、图纸转换、模型制作以及构件设计。
除此之外这个软件已经和AutoCAD开展合作,可以从CAD软件里面添加很多建筑需要的资源,实现数据交互使用,为用户设计建筑图纸提供了很多资源。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)