我用纯Lisp操作块

香远益清

从一个dwg文件块根据坐标文件插入另一个dwg文件，为什么飞得很远，不在坐标点上？求解

LIULISHENG

好强大的说

paulpipi

帮顶一下

李钊伟2012

增加对象cad已经有了其实，在位编辑

luohonghe

选择块：; 错误: no function definition: GRAHAM-SCAN

再见熊猫衣服

黄老师，看看这个。。能做成这样就完美了。。:D

alexmai

;;;desc:graham-scan算法计算点集凸包
;;;arg:ptlst:点表
;;;return:凸包点表
;;;examplegraham-scan '(pt1 pt2 pt3 ...))
(defun graham-scan (ptlst / d i p0)
  (setq ptlst
  (vl-sort
    ptlst
    '(lambda (p1 p2)
       (cond
  ((< (cadr p1) (cadr p2)))
  ((equal (cadr p1) (cadr p2) 1e-8)
   (< (car p1) (car p2))
  )
       )
     )
  )
  )     ;点集坐标排序
  (setq p0 (car ptlst))   ;根据坐标排序结果选取Y值最小，同时X最小的点作为凸包的第一个点
  (setq ptlst
  (vl-sort
    (cdr ptlst)
    (function
      (lambda (p1 p2 / m n)
        (cond
   ((< (setq m (angle p1 p0)) (setq n (angle p2 p0))))
   ((equal m n 1e-8)
    (< (distance p1 p0) (distance p2 p0))
   )
        )
      )
    )
  )
  )     ;极角排序
     ;写凸包算法
  (setq d (list (cadr ptlst) (car ptlst) p0)) ;构建初始凸包点集
  (foreach curpt (cddr ptlst)  ;遍历剩余点
    (setq d (cons curpt d))  ;当前点入栈   
    (while (and (caddr d) (isLeft (caddr d) (cadr d) curpt))
      (setq d (cons curpt (cddr d))) ;判断这时候的凸包前三点是否左转，如果非左转，将第二点删除
    )
  )
)

guosheyang

感谢共享资源！

stonedesign

alexmai 发表于 2015-7-26 22:24
;;[功能] 块遮罩
(defun C:bq (/ E N OBJ OLDNAME SS)
  (cond

少了为函数

stonedesign

块遮罩功能  命令后出现   选择块：; 错误: no function definition: GRAHAM-SCAN   应该是少了GRAHAM-SCAN为函数   楼主能补上吗？