[讨论][1209]给线段编号简化编程方法

xyz518mm

[讨论][1209]给线段编号简化编程方法

在版主xpy及楼主taner所讨论中提到使用
vertexs 函数可以将线段顶点编号产生
但若为若干的线段非多义线时该如何处理呢?
以及如何改写才可自动判断多义线顶点数量而自动产生编号呢?

由于此讨论话题与本主题不相近,
且希望再继续讨论而开此一话题.

xpy版主所提供的函数,虽然可以使用但好像还是无法处理线段喔!
不知道是小弟使用的方法错误了吗?

另外 xpy版主 开发的 xyp_lib.VLX 工具,
在繁体作业系统下无法使用,希望可以供繁体系统使用.


[PHP]
vertexs 函数
(defun vertexs (ename / plist pp n)
(setq obj (vlax-ename->vla-object ename))
(setq plist (vlax-safearray->list
(vlax-variant-value
(vla-get-coordinates obj)
) )
)
(setq n 0)
(repeat (/ (length plist) 2)
(setq pp (append
pp
(list (list (nth n plist) (nth (1+ n) plist) ) ) )
)
(setq n (+ n 2))
)
pp
)
[/PHP]


[PHP]
多义线顶点编号产生
(defun c:ts ( / polygon pt1 pt2 pt3 pt4 pt5 pt6 ptlist str1 str2 str3

str4 str5 str6)

(setq ptlist (vertexs (car (setq polygon (entsel "\n请点选物件:")))))
(setq   pt1 (nth 0 ptlist)
        pt2 (nth 1 ptlist)
        pt3 (nth 2 ptlist)
        pt4 (nth 3 ptlist)
        pt5 (nth 4 ptlist)
        pt6 (nth 5 ptlist)
)

(setq str1 (strcat "PT1:X=" (rtos (car pt1) 2 4) ", Y=" (rtos (cadr

pt1) 2 4)))
(setq str2 (strcat "PT2:X=" (rtos (car pt2) 2 4) ", Y=" (rtos (cadr

pt2) 2 4)))
(setq str3 (strcat "PT3:X=" (rtos (car pt3) 2 4) ", Y=" (rtos (cadr

pt3) 2 4)))
(setq str4 (strcat "PT4:X=" (rtos (car pt4) 2 4) ", Y=" (rtos (cadr

pt4) 2 4)))
(setq str5 (strcat "PT5:X=" (rtos (car pt5) 2 4) ", Y=" (rtos (cadr

pt5) 2 4)))
(setq str6 (strcat "PT6:X=" (rtos (car pt6) 2 4) ", Y=" (rtos (cadr

pt6) 2 4)))

(command "text" "j" "tl" pt1 "3" "0" str1)
(command "text" "j" "tl" pt2 "3" "0" str2)
(command "text" "j" "tl" pt3 "3" "0" str3)
(command "text" "j" "tl" pt4 "3" "0" str4)
(command "text" "j" "tl" pt5 "3" "0" str5)
(command "text" "j" "tl" pt6 "3" "0" str6)

(prin1))


(defun vertexs (ename / plist pp n)
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list
              (vlax-variant-value
              (vla-get-coordinates obj)
              ) )
  )
  (setq n 0)
  (repeat (/ (length plist) 2)
  (setq pp (append
           pp
           (list (list (nth n plist) (nth (1+ n) plist) ) ) )
           )
  (setq n (+ n 2))
  )
  pp
)
[/PHP]

希望各位版主及楼主可以在提供好的建议
谢谢

xyp1964

所谓“xyp_lib.VLX 工具，在繁体作业系统下无法使用，希望可以供繁体系统使用”的问题，未考虑过，无法实现。还是卸载为妙！呵呵……

xyz518mm

那还是载卸吧
谢谢版主的解答~

狂刀

看来问题已经得到圆满的解决

xyz518mm

解决了吗
好像还有其他问题喔
烦请再看一下吧

eachy

最初由 xyp1964 发布
[B]所谓“xyp_lib.VLX 工具，在繁体作业系统下无法使用，希望可以供繁体系统使用”的问题，未考虑过，无法实现。还是卸载为妙！呵呵…… [/B]

这个问题很好解决，找个简繁体转换软件批量将你的函数库文件中的简体提示转换为繁体，然后在 Vlisp 编辑器下重新编译即成为繁体版 LIB

xyz518mm

最初由 eachy 发布
[B]
这个问题很好解决，找个?.. [/B]

eachy版主说的对
小弟怎没想到呢?
提供一个转换软体
网址如下
http://alf-li.pcdiscuss.com/
工具名称为
ConvertZ v8.02
中文简繁内码转换器
下载档案位置
http://alf-li.pcdiscuss.com/files/convertz802.zip

希望 XYP 版大可以做成繁体版

xyp1964

不会啊！呵呵……

1. [FONT=courier new]eachy版主說的對
   
2. 小弟怎沒想到呢?
   
3. 提供一個轉換軟體
   
4. 網址如下
   
5. [url]http://alf-li.pcdiscuss.com/[/url]
   
6. 工具名稱爲
   
7. ConvertZ v8.02
   
8. 中文簡繁內碼轉換器
   
9. 下載檔案位置
   
10. [url]http://alf-li.pcdiscuss.com/files/convertz802.zip[/url]
    
11. 
    
12. 希望 XYP 版大可以做成繁體版
    
13. [/FONT]

复制代码

狂刀

xyz518mm  
可以做个ｂａｔ发给ｘｙｐ版：）

xyz518mm

最初由 xyp1964 发布
[B]不会啊！呵呵……
[CODE]eachy版主說的對
小弟怎沒想到呢?
提供一個轉換軟體
網址如下
http://alf-li.pcdiscuss.com/
工具名稱爲
ConvertZ v8.02
中文簡繁內碼轉換器
下載檔... [/B]

转码器使用流程


简繁体系统最大问题还是设定文字档的字型问题,由于程序中设定了不通用的字型,而产生了程序中断现象.
若希望程序可以不中断执行应该需要使用可相通的字型设定即可.

xyp1964

“请点选物件”－－读起来有点怪！

eachy

用其中的转换文件，就可以批量添加文件

xyz518mm

最初由 xyp1964 发布
[B]“请点选物件”－－读起来有点怪！ [/B]

小弟只是拿个范本来
示范转码动作
没什么涵义
不用理解~

tctabc

真是不错的文章
期待后续的讨论