天正提示加载lisp_使用AutoCAD2004加载一个Lisp程序后，显示加载成功，但是并未出现提示输入点的信息...

程序如下:(defunc:pbox(/papbpcpdwwhhmp1mp2mp3mp4);以下pa、ww、hh值须由使用者输入(setqpa(getPoint"EnterLeft/LowPoint:"))(setqww(getdistpa"\nWidth:"))(setqhh(getdistpa"\nHei...

程序如下:

(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)

;以下 pa、ww、hh 值须由使用者输入

(setq pa (getPoint "Enter Left/Low Point:"))

(setq ww (getdist pa "\nWidth:"))

(setq hh (getdist pa "\nHeight:"))

;以下pb、pc、pd值须由程序依据pa、ww、hh求出

(setq pb (polar pa 0 ww))

(setq pc (polar pb (/ pi 2) hh))(setq pd (polar pc pi ww))

;以下依据 pa、pb、pc、pd 点画矩形

(指令 "pline" pa pb pc pd "c")

;以下mp1、mp2、mp3、mp4值须由程序依据pa、ww、hh ;& pb、pc、pd 值求出

(setq mp1 (polar pa 0 (/ ww 2)))

(setq mp2 (polar pb (/ pi 2) (/ hh 2)))

(setq mp3 (polar pd 0 (/ ww 2)))

(setq mp4 (polar pa (/ pi 2) (/ hh 2)))

;以下依据 mp1、mp2、mp3、mp4 点画出二条线

(指令 "line" mp1 mp3 "")

(指令 "line" mp2 mp4 "")

(prin1)

)

(prompt "********** << C:PBOX >> **********")

(prin1)

展开

天正提示加载lisp_使用AutoCAD2004加载一个Lisp程序后，显示加载成功，但是并未出现提示输入点的信息...相关推荐

c++版本opencv（02-第一个OpenCV程序 03.图像加载与保存）
c++版本opencv(02-第一个OpenCV程序) 一.02-第一个OpenCV程序二,03.图像加载与保存来自网易云课堂一.02-第一个OpenCV程序如果加载到了之后呢,我们就要对它进 ...
3点画矩形的lisp_求cad的一个lisp程序,要求鼠标在点击一点后,输入长、宽两个数值，就能出来矩形，并且自动画出矩形的对角线...
匿名用户 1级 2012-12-24 回答 (defun c:hk () (setq xy1 (getpoint "请点击矩形左下角:") kd (getreal "请输 ...
ajax加载进度百分比,在ajax中显示加载百分比的进度条，php
您好我正在使用ajax加载数据库内容.我想显示加载或图像的总百分比.在ajax中显示加载百分比的进度条,php 这是我的脚本 function name1(str) { if (str.length= ...
lisp 中望cad 选项卡_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD的lisp编辑器_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD调用lisp在哪_中望CAD加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD调用lisp在哪_中望CAD加载LISP程序（图文教程）
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD调用lisp在哪_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
领英加人的方法和细节，一个月轻松加1000+人
在领英,一个领英账号是可以加3万好友,但很少有人加到这么多,一则是领英对加人会有限制,二则是大家没有掌握好加人技巧.下面教大家一个快速拓展人脉的方法,一个月可轻松加1000+人. 首先我们要清楚领英对 ...

天正提示加载lisp_使用AutoCAD2004加载一个Lisp程序后，显示加载成功，但是并未出现提示输入点的信息...

天正提示加载lisp_使用AutoCAD2004加载一个Lisp程序后，显示加载成功，但是并未出现提示输入点的信息...相关推荐

最新文章

热门文章