真不错,厉害
支持，都快看晕了，喜欢这个帖子。
well
本帖最后由 作者 于 2006-2-9 15:37:22 编辑 <br /><br /> <P>再上一个 [ 指导: 龙龙仔版主 ]</P>
<P>(DEFUN GET-PointList-4pt(PT_LIST / PT1A PT1B PT2A PT2B)<BR> (setq pt3(LIST(apply 'max (mapcar '(lambda (x) (car X)) PT_LIST))<BR> (apply 'max (mapcar '(lambda (x) (caDr X)) PT_LIST)))<BR> PT1(LIST(apply 'mIN (mapcar '(lambda (x) (car X)) PT_LIST))<BR> (apply 'mIN (mapcar '(lambda (x) (caDr X)) PT_LIST))))<BR> (list PT1 (LIST (car pt3)(cadr PT1))pt3(LIST (car PT1)(cadr pt3)))<BR> ;点表四个点[<左下角点> <右下角点> <右上角点> <左上角点>]<BR> )</P>
<P>; 点表乾坤大挪移 </P>
<P>;碰到东东就停止</P>
<P>(MOVEPLIST-IFSSGETOTRUE-STOP 点表 移动角度 步长)</P>
<P>(DEFUN MOVEPLIST-IFSSGETOTRUE-STOP(P&l MOVE-ANG MDIST-STOP / O P&L-1 RUN)<BR> (SETQ run t)<BR> (WHILE run<BR> (SETQ P&l-1 NIL O 0)<BR> (REPEAT (LENGTH P&l)<BR> (SETQ P&l-1(CONS (POLAR (NTH O P&l) MOVE-ANG MDIST-STOP)P&l-1)O(1+ O)))<BR> (SETQ P&l P&l-1)<BR> (if (ssget "f" P&l-1)(setq run nil)))<BR> )</P>
<P>强，强，小虾在这里谢了</P>
无痕发表于2005-2-20 15:08:00static/image/common/back.gif;功能同上,适用所有曲线.
(DEFUN xl-3p (e / ps pe pm) (setq ps (vlax-curve-getstartparam e) pe (vlax-curve-geten
不对吧,比如arc
应该是 (* 0.5 (+ startpar endpar))
<P> 支持！</P>
<P> 还有一个问题想问王老师，就是用ADO访问数据库时，怎么获得记录数呢？数据库是Access。谢谢！</P>
把DCL和LISP一起编译的作法:
(setq acadfn (findfile "ACAD.PAT")
fn (strcat (substr acadfn 1 (- (strlen acadfn) 8))"BDYCAD.dcl")
fn (open fn "w")
)
(foreach x (list
"bdycad06776 : dialog {label = \"BDYCAD\" ;"
": list_box {label = \"我的老表:\"; key = \"selections\";}"
": edit_box {key = \"eb1\";edit_limit = 5;edit_width = 6;label = \"附加参数:\";}"
" ok_cancel ;"
"}"
) ; endlist
(princ x fn)
(write-line "" fn)
) ; end foreach
(close fn)
(setq acadfn nil)
BDYCAD发表于2006-8-7 17:37:00static/image/common/back.gif
把DCL和LISP一起编译的作法:
(setq acadfn (findfile \"ACAD.PAT\")...
<P><BR>以前有人这么写。现在你还在用啊?</P>
<P>挺麻烦的.</P>