简约而不简单

zhuxuhong

真不错,厉害

ak50

支持，都快看晕了，喜欢这个帖子。

sean_yangt

well

BDYCAD

再上一个 [ 指导: 龙龙仔版主 ]

(DEFUN GET-PointList-4pt(PT_LIST / PT1A PT1B PT2A PT2B)
  (setq pt3(LIST(apply 'max (mapcar '(lambda (x) (car X)) PT_LIST))
   (apply 'max (mapcar '(lambda (x) (caDr X)) PT_LIST)))
 T1(LIST(apply 'mIN (mapcar '(lambda (x) (car X)) PT_LIST))
   (apply 'mIN (mapcar '(lambda (x) (caDr X)) PT_LIST))))
  (list PT1 (LIST (car pt3)(cadr PT1))pt3(LIST (car PT1)(cadr pt3)))
  ;点表四个点[<左下角点> <右下角点> <右上角点> <左上角点>]
  )

BDYCAD

; 点表乾坤大挪移

;碰到东东就停止

(MOVEPLIST-IFSSGETOTRUE-STOP 点表 移动角度 步长)

(DEFUN MOVEPLIST-IFSSGETOTRUE-STOP(P&l MOVE-ANG MDIST-STOP / O P&L-1 RUN)
  (SETQ run t)
  (WHILE run
    (SETQ P&l-1 NIL O 0)
    (REPEAT (LENGTH P&l)
      (SETQ P&l-1(CONS (POLAR (NTH O P&l) MOVE-ANG MDIST-STOP)P&l-1)O(1+ O)))
    (SETQ P&l P&l-1)
    (if (ssget "f" P&l-1)(setq run nil)))
  )

killer9806

强，强，小虾在这里谢了

aeo000000

无痕发表于2005-2-20 15:08:00;功能同上,适用所有曲线.

(DEFUN xl-3p (e / ps pe pm)   (setq ps (vlax-curve-getstartparam e)        pe (vlax-curve-geten

1. 不对吧,比如arc

复制代码

1. 应该是 (* 0.5 (+ startpar endpar))

复制代码

knowyou

  支持！

  还有一个问题想问王老师，就是用ADO访问数据库时，怎么获得记录数呢？数据库是Access。谢谢！

BDYCAD

把DCL和LISP一起编译的作法:

2. (setq acadfn (findfile "ACAD.PAT")
3.            fn (strcat (substr acadfn 1 (- (strlen acadfn) 8))"BDYCAD.dcl")
4.            fn (open fn "w")
5.      )
6.      (foreach x (list
7.                   "bdycad06776 : dialog {label = "BDYCAD" ;"
8.                   ": list_box {label = "我的老表:"; key = "selections";}"
9.                   ": edit_box {key = "eb1";edit_limit = 5;edit_width = 6;label = "附加参数:";}"
10.                   "   ok_cancel ;"
11.                   "}"
12.                  ) ; endlist
13.        (princ x fn)
14.        (write-line "" fn)
15.      ) ; end foreach
16.      (close fn)
17.      (setq acadfn nil)

(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:00 把DCL和LISP一起编译的作法: (setq acadfn (findfile \"ACAD.PAT\")...

以前有人这么写。现在你还在用啊?

挺麻烦的.