2013-06-25 明经 AutoLISP 编程②群(177027547) 群聊记录：充值 f97b82f9-a3d2-4a52-8f37-531d5666e

明经快报

[mccad][mccad] 11:31:37

充值 f97b82f9-a3d2-4a52-8f37-531d5666e1cf

明经快报

等你 11:47:08

(setq en (car (entsel "选择直线L:")))

      (setq dis2line (getreal "\n输入点范围:"))

      (if (and en dis2line)

    (progn

      (setq pt1 (cdr (assoc 10 (entget en))))


      (setq pt2 (cdr (assoc 11 (entget en))))

      ;;(princ (angle pt1 pt2))

      (setq
        ranlst (list
             (polar pt1 (- (angle pt1 pt2) (/ I 2)) dis2line)

             (polar pt1 (+ (angle pt1 pt2) (/ I 2)) dis2line)

             (polar pt2 (- (angle pt2 pt1) (/ I 2)) dis2line)

             (polar pt2 (+ (angle pt2 pt1) (/ I 2)) dis2line)
           )
      )
      (setq s1 (ssget "wP" ranlst '((0 . "point"))))

      ;;(setq s1 (ssget "CP" ranlst '((0 . "INSERT") (8 . "GCD"))))

    )

      )
    )
  )
  (SETQ n 0)
  (setq size 0.1)
;;;-------------------分配点表 --------
  (repeat (sslength s1)
    (setq lst (cons (ssname s1 n) lst)
      n   (1+ n)
    )
  )
;;;---进行XY值比较计算后对列表排序----------------
  (setq
    x (mapcar '(lambda (x) (car (cdr (assoc 10 (entget x))))) lst)
  )

  (setq
    y (mapcar '(lambda (x) (cadr (cdr (assoc 10 (entget x)))))
          lst
      )
  )

  (setq    maxx (eval (cons 'max x))
    minx (eval (cons 'min x))
  )
  (setq    maxy (eval (cons 'max y))
    miny (eval (cons 'min y))
  )
  (setq    dx (- maxx minx)
    dy (- maxy miny)
  )
  (princ dy)
  (if (> dx dy)
    ;;x坐标排序：
    (setq S2 (SORT-SE S1 10 0 (* 0.1 SIZE) nil))
    ;;y坐标排序：
    (setq S2 (SORT-SE S1 10 1 (* 0.1 SIZE) t))
  )
;;;-----------投影各点到断面线上-------------
  (progn
    (setq I 0)
    (repeat (sslength S2)
      (setq pen_data (entget (ssname s2 i)))
      (setq ppt (assoc 10 pen_data))
      (setq pp (cdr ppt))
      (setq erpt (vlax-curve-getClosestPointTo (car en) pp T))
      ;;找出垂点
      (entmake (APPEND '((0 . "LINE")
             (100 . "AcDbEntity")
             (100 . "AcDbLine")
             (8 . "0")
             (62 . 2)
            )
               (LIST (CONS 10 pp) (CONS 11 perpt))

           )
      )
      (princ "\n")
      (princ (cadddr (assoc 10 (entget (ssname S2 I)))))
      ;;显示排序结果。
为何提示参数错误

明经快报

[yxh1202]等你 12:05:36

88

明经快报

[机械工程师]陈 13:00:55

充值 f97b82f9-a3d2-4a52-8f37-531d5666e1cf

这个充值是什么

明经快报

[pzweng][pzweng]天蝎 13:29:49

充值 f97b82f9-a3d2-4a52-8f37-531d5666e1cd

明经快报

[天津]-地形-fly 13:54:27

[qqimg]oldimg/{8EA379BA-6442-4713-41AD-8D293C10756E}.jpg[/qqimg]
线形删不掉
咋办

[yxh1202]等你 14:00:41

什么意思

改备注名吗

不好意思

明经快报

[kkppp123]小唐 22:05:09

请问电脑所有的文件夹属性变成只读，手动却改不回来，是怎么回事？

[ZZXXQQ] 22:05:43

权限不够

[kkppp123]小唐 22:07:29

权限不够？是家用电脑，怎么会是权限不够呢

[vormittag]桔子 22:08:18

[kkppp123]小唐 22:08:58

重装系统也不行

[ZZXXQQ] 22:10:23

砸了它

再买新的

[kkppp123]小唐 22:11:03

[alwtyp][alwtyp] 22:11:10

周老师也会讲冷笑话？

[ZZXXQQ] 22:12:01

要不对硬盘进行低格，然后再装系统。

[kkppp123]小唐 22:13:07

有好一点的办法吗

[mccad][mccad] 22:14:57

只是只读，那就把文件拷贝出来，普通格式化应该可以

[vormittag]桔子 22:16:48

用户权限是 system > trustedinstaller >adiministrator 

并不会因为你用的是家用电脑就有windows的最高权限。

[kkppp123]小唐 22:19:21

我的用户就是adiministrator

[vormittag]桔子 22:19:54

administrator 不是最高权限。

[kkppp123]小唐 22:20:44

普通格式化还是不行，我试过将一个D盘格式化后，新建的文件夹还是只读

[434939575]模型 22:24:28

请教：LISP空表的用途是？对这个不理解？

[ZZXXQQ] 22:25:15

为向表内放数据做准备

[434939575]模型 22:28:51

意思就是后面的表内容可以放到空表里面去。

[434939575]模型 22:29:58

谢谢指导