社区 › AutoLISP/Visual LISP 编程技术 › 我用纯Lisp操作块

香远益清 发表于 2020-1-3 13:04:02

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

LIULISHENG 发表于 2020-2-24 18:59:18

好强大的说

paulpipi 发表于 2020-9-1 21:11:26

帮顶一下

李钊伟2012 发表于 2020-9-1 23:47:42

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

luohonghe 发表于 2020-9-2 09:20:21

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

再见熊猫衣服 发表于 2021-11-11 11:29:25

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

alexmai 发表于 2021-11-12 15:56:47

;;;desc:graham-scan算法计算点集凸包
;;;arg:ptlst:点表
;;;return:凸包点表
;;;example:(graham-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 发表于 2021-11-12 16:42:59

感谢共享资源！

stonedesign 发表于 2021-11-20 15:36:42

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


少了为函数

stonedesign 发表于 2021-11-20 15:40:04

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

查看完整版本: 我用纯Lisp操作块