求助---------宗地图批量另存(已解决)请看22楼

c735023723

测量同行啊

longer1000

测量同行啊

461045462

请问楼上：
sslist 函数要怎样加？
谢谢！

dalin1985

461045462 发表于 2012-8-18 09:47
请问楼上：
sslist 函数要怎样加？
谢谢！

(defun sslist (f_sel) ;converts a selection set to a list of enames
  (if f_sel
    (progn
  (if (/= (type f_sel) 'PICKSET)
    (exit)
  )
  (setq        f_ss_list nil
        f_loop -1
  )
  (repeat (sslength f_sel)
    (progn
      (setq f_loop (1+ f_loop))
      (princ (strcat "\rSorting " (itoa f_loop) " of " (itoa (sslength f_sel)) "     "))
      (setq f_ss_list (append f_ss_list (list (ssname f_sel f_loop))))
    )
  )
  )
    nil
    )
)
;eg (sslist (ssget)) = (<Entity name: 40061d70> <Entity name: 40061d68>)

dalin1985

站内找的，也不知道对不对

461045462

dalin1985 发表于 2012-8-18 20:57
站内找的，也不知道对不对

谢谢楼主提供的sslist 函数
等会试试。
谢谢！

461045462

dalin1985 发表于 2012-8-18 20:57
站内找的，也不知道对不对

dalin1985 您好：
加上函数，运行总图，生成的东西不知道哪里去了？
命令: test
选择对象: 指定对角点: 找到 89 个
已滤除 88 个。
Sorting 0 of 1     (T)

或许是操作不妥。
请指教。
谢谢！

dalin1985

461045462 发表于 2012-8-19 14:44
dalin1985 您好：
加上函数，运行总图，生成的东西不知道哪里去了？
命令: test

我用也是，我也没有用他的，我是自己写的

461045462

dalin1985 发表于 2012-8-19 15:29
我用也是，我也没有用他的，我是自己写的

dalin1985 您好:
轻轻地请问一句，您的成果能否分享
谢谢！

xujinhua

同行啊...同需要。。谢谢各位