社区 › AutoLISP/Visual LISP 编程技术 › 点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22

穿靴子的猫 发表于 2014-4-6 18:44:44

老黄写的不错，大小写是个好想法

lyqiezi 发表于 2014-4-6 20:40:11

严重感谢

重慶崽兒 发表于 2014-4-7 00:16:06

看看呵呵 支持黄大

lyqiezi 发表于 2014-4-7 17:29:06

(defun c:tt()
    (setq ss4 (ssget '((0 . "TEXT")(8 . "1526"))));; 选择钢筋文字
;;获取钢筋信息
    (HH:ssPts:Sort ss4 "Yx" 0.5)
    (setq d1 (cdr (assoc 1 (entget (ssname ss4 0)))))
    (setq d2 (cdr (assoc 1 (entget (ssname ss4 1)))))
    (print d1)
    (print d2)
    (prin1)
)这个代码调用的排序，没有达到想要的效果，不知道是不是我想的不对

lucas_3333 发表于 2014-4-7 22:40:41

长老的贴都看不完啊，太多了

enn09 发表于 2014-4-8 16:32:49

顶一个，,期待楼主大作！

lyqiezi 发表于 2014-4-8 19:35:15

本帖最后由 lyqiezi 于 2014-4-8 20:47 编辑

我以为是已经对选择集排过序了
搞 了半天，原来都没用上排序，刚好图上排序跟我要求的一致……

mice6672 发表于 2014-4-8 20:43:50

谢谢楼主，学习了，自己水平有限，年龄也快奔五了，发布了什么贴

尓百 发表于 2014-4-10 11:35:12

大师的帖子一定要回复的

mingjingboyu 发表于 2014-4-14 17:57:08

看看是什么东东

查看完整版本: 点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22