TO:"sailorcwx"兄和"xxsheng兄"程序OK,大恩不言谢啦!!!

linhui12 发表于 2008-5-25 14:54:00

本帖最后由作者于 2008-6-13 23:08:06 编辑 TO:"sailorcwx"兄和"xxsheng兄"程序OK,大恩不言谢啦!!!

caoyin 发表于 2008-5-25 15:42:00

...多段线要“平躺”在XY面上（不要“站”着的，.楼主真诙谐，帮你顶上去

linhui12 发表于 2008-5-27 01:24:00

临睡前一顶....这么多人关注,可就是没有人回帖啊,我知道这个很烦琐,一般人都不轻易出手的,还请大家不厌其烦帮帮忙啊,也许对您是没什么大不了的,可它对我实在是太重要了,谢谢各位务必出手...

xxsheng 发表于 2008-5-27 11:00:00

本帖最后由作者于 2008-5-30 8:20:34 编辑

测试

sailorcwx 发表于 2008-5-27 12:06:00

没弄懂什么样的叫躺着，什么样的叫站着，什么样的叫蹲着这些线不是根据你的坐标文件来绘制的么，难道还要修改？

linhui12 发表于 2008-5-27 15:20:00

xxsheng兄,非常感谢您的出手相助,您的方案已经下载,晚上告诉您测试结果.sailorcwx兄,先谢谢您的关注.是这样的:读取数据后绘制出的三维多段线都是空间线,我的目的是要把那些空间的三维多段线在不改变其原有型状(长度)的前提下通过三维旋转等手段,使三维多段线上的每个点Z为0(或Z相同)

linhui12 发表于 2008-5-27 19:32:00

xxsheng兄,您好,经过测试发现程序有如下问题:1.加载程序提示无法加载,后用visual lisp检查提示多了个括号,后查证是第212行的括号多出,去除后问题解决.2.程序加载运行后发现您编写的功能没有奏效,后将第208行程序移到212行后问题解决3.利用程序所绘制的三维多义线中第20根没有"放平"于XY面上,后经多次试验问题依旧,麻烦您查查看什么原因.4.小弟不才,实在不只如何编那段一行绘制满20根后自动跳行程序,还希望您帮忙实现了.再次感谢您的帮助.

xxsheng 发表于 2008-5-28 08:13:00

本帖最后由作者于 2008-5-28 9:23:07 编辑 我的浏览器好像发帖就是多出逗号,不要改顺序,,,把注释的弄掉再试一下吧,208行和212行是不能调换,,,, 至于换行,,加一个判断根数就可以了,不知道你前面总数的变量是什么,自己写吧,,,,, 顺便说一下,我发现很多人图纸的版本都很高,现在好像都能另存版本的,每次都要转换成低版本实在是无聊的......

xxsheng 发表于 2008-5-28 09:18:00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun CommaFirst (s2) ; ;CommaFirst函数,来判断变量是否到达了以逗号为开头，如果则去掉字符串逗号前面的子字符串。 (while (and (/= (substr s2 1 1) ",") (/= (substr s2 1 1) "") ) ;判断变量是否到达了以逗号为开头,如果是则退出循环。 (setq s2 (substr s2 2)) ;去掉字符串逗号前面的子字符串。 ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun DeleteBlank (s3) ; ;DeleteBlank函数，去掉字符串最前面的空格。 (if (= " " (substr s3 1 1)) ; ;判断字符串前面是否有空格。如果有则执行while循环，否则执行(setq s3 s3)这一。 (while (= " " (substr s3 1 1)) (setq s3 (substr s3 2)) ;去掉字符串最前面的一个空格，如果去掉一个空格后已无空格，则返回已经去掉空格的字符串。 ) (setq s3 s3) ;不是以空格开头的字符串，则返回其原值。 ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:draw (/ f savecmdecho n startp) (prompt "\n此程序读取各行数据格式为:参数1,参数2,参数3,数学坐标X值,数学坐标Y值,Z值。") (setq f (getfiled "选取文件" 　 " " "txt" 2));设置变量f作为逗号分隔符文件全称及其路径的字符串值。 (prompt "\n正在读取文件中的数据...") (princ) (setq f(open f "r") ; ;用open函数来打开文件，并把打开的文件指针传递给变量f。 savecmdecho(getvar "cmdecho") saveosmode (getvar "osmode") savesnapmode (getvar "snapmode") s6 nil s7 nil n 0) (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "snapmode" 0) (while ;循环读取行数据并画点标注的函数。 (setq s (read-line f)) ;此行用来判断是否读完了文件，如果是则返回nil。 (setq s (DeleteBlank s)) ;调用DeleteBlank函数，去掉变量s前面的空格。 (while (= s "") ; ;如果变量s不是空字符串，则跳出此循环，否则读取下一行数据。 (setq s (read-line f)) ;读取下一行数据。 (if ;判断是否已经读到文件的末尾。 (= s nil) (princ "\已经完成读取\n") (setq s (DeleteBlank s)) ;未读到文件的末尾，去掉字符串前的一个空格。 ) ) (while (= (substr s 1 1) ",") ; ;如果变量s不是逗号，则跳出此循环，否则读取下一行。 (setq s (read-line f)) ;读取下一行数据。 (while (= s "") ; ;如果变量s不是空字符串，则跳出此循环，否则读取下一行数据。 (setq s (read-line f)) ;读取下一行数。 (if ;判断是否已经读到文件的末尾。 (= s nil) (princ "\已经完成读取\n") (setq s (DeleteBlank s)) ;未读到文件的末尾，去掉字符串前的一个空格。 ) ) ) (if (/= s nil) ;如果不是文件的末尾，则调用Draw函数画点、标注。 (Draw s) ;调用画点及标注函数，调用一次来画并标注一个点。 (princ) ) (if (/= s nil) ;如果不是文件的末尾，则累加读入的点数。 (setq n (+ n 1)) ) ) (close f) ;关闭文件。 (setvar "cmdecho" savecmdecho) (setvar "osmode" saveosmode) (setvar "snapmode" savesnapmode) (prompt (strcat "\n数据已经读取完毕;共读入<" (itoa n) ">根三维多段线" ) ) (princ) ) (defun Draw (s0 / s1 k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 k12 k13 k14 xA yA zA xB yB zB xC yC zC xD yD zD ptA ptB ptC ptD DH D1 N1 s4 s5 s6 s7 plent v1 v2 norv rotatev cosv ang) ;定义画点及标注函数。 (setq s1 s0 s1 (CommaFirst s1) ;调用CommaFirst函数,来判断变量是否到达了以逗号为开头，如果则掉字符串逗号前面的子字符串。 　　　　　　　　　　　　 ;并把CommaFirst函数的返回值赋值给变量s1。 k1(- (strlen s0) (strlen s1)) ;计算出字符串中第1个子字符串（即点号）的长度。 DH(substr s0 1 k1) ;把字符串中第1个子字符串赋值给变量DH。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1(CommaFirst s1) ;调用CommaFirst函数 k2(- (strlen s0) (strlen s1)) ;计算出字符串中第2个子字符串（即点号）的长度。 D1(substr s0 (+ k1 2) (- k2 (+ k1 1))) ;把字符串中第2个子字符串赋值给变量D1,保留后续另用。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1(CommaFirst s1) ;调用CommaFirst函数 k3(- (strlen s0) (strlen s1)) ;计算出字符串中第3个子字符串（即点号）的长。 R(substr s0 (+ k2 2) (- k3 (+ k2 1))) ;把字符串中第3个子字符串赋值给变量R,保留后续另用。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k4 (- (strlen s0) (strlen s1)) ;计算出字符串中第3个子字符串（即点号）的长度。 N1(substr s0 (+ k3 2) (- k4 (+ k3 1))) ;把字符串中第3个子字符串赋值给变量N1,保留后续另用。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k5 (- (strlen s0) (strlen s1)) ;计算出字符串中第4个子字符串（即点号）的长度。 xA(substr s0 (+ k4 2) (- k5 (+ k4 1))) ;把字符串中第4个子字符串赋值给变量xA。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k6 (- (strlen s0) (strlen s1)) ;计算出字符串中第5个子字符串（即点号）的长度。 yA(substr s0 (+ k5 2) (- k6 (+ k5 1))) ;把字符串中第5个子字符串赋值给变量yA。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k7 (- (strlen s0) (strlen s1)) ;计算出字符串中第6个子字符串（即点号）的长度。 zA(substr s0 (+ k6 2) (- k7 (+ k6 1))) ;把字符串中第6个子字符串赋值给变量zA。 s1(substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k8 (- (strlen s0) (strlen s1)) ;计算出字符串中第7个子字符串（即点号）的长度。 xB(substr s0 (+ k7 2) (- k8 (+ k7 1))) ;把字符串中第7个子字符串赋值给变量xz。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k9 (- (strlen s0) (strlen s1)) ;计算出字符串中第8个子字符串（即点号）的长度。 yB(substr s0 (+ k8 2) (- k9 (+ k8 1))) ;把字符串中第8个子字符串赋值给变量yB。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s4 s1 s1 (CommaFirst s1)) ;调用CommaFirst函数 (if (= s1 "") (setq zB s4 s6 s1 )) (if (/= s1 "") (progn (setq k10 (- (strlen s0) (strlen s1)) ;计算出字符串中第9个子字符串（即点号）的长度。 zB(substr s0 (+ k9 2) (- k10 (+ k9 1)));把字符串中第9个子字符串赋值给变量zB。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k11 (- (strlen s0) (strlen s1));计算出字符串中第10个子字符串（即点号）的长度。 xC (substr s0 (+ k10 2) (- k11 (+ k10 1))) ;把字符串中第10个子字符串赋值给变量xC。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k12 (- (strlen s0) (strlen s1));计算出字符串中第11个子字符串（即点号）的长度。 yC (substr s0 (+ k11 2) (- k12 (+ k11 1)));把字符串中第11个子字符串赋值给变量yC。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s5 s1 s1 (CommaFirst s1) ) ;调用CommaFirst函数 (if (= s1 "")(setq zC s5 s7 s1)) (if (/= s1 "") (progn (setq k13 (- (strlen s0) (strlen s1)) ;计算出字符串中第12个子字符串（即点号）的长度。 zC (substr s0 (+ k12 2) (- k13 (+ k12 1)));把字符串中第12个子字符串赋值给变量zC。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k14 (- (strlen s0) (strlen s1));计算出字符串中第13个子字符串（即点号）的长度。 xD (substr s0 (+ k13 2) (- k14 (+ k13 1)));把字符串中第13个子字符串赋值给变量xD。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 s1 (CommaFirst s1) ;调用CommaFirst函数 k15 (- (strlen s0) (strlen s1));计算出字符串中第14个子字符串（即点号）的长度。 yD (substr s0 (+ k14 2) (- k15 (+ k14 1)));把字符串中第14个子字符串赋值给变量yD。 s1 (substr s1 2) ;把以逗号开头的字符串的最前面的逗号去掉。 zD s1) ;把字符串中第15个子字符串赋值给变量zD。 ) ) ) ) (setq xA (atof xA) yA (atof yA) zA (atof zA)) ;把字符串转换为实数。 (setq xB (atof xB) yB (atof yB) zB (atof zB)) ;把字符串转换为实数。 (if (/= s6 "") (progn (setq xC (atof xC) yC(atof yC) zC(atof zC));把字符串转换为实数。 (if (/= s7 "") (setq xD (atof xD) yD (atof yD) zD (atof zD)) ;把字符串转换为实数。 ) ) ) (setq ptA (list xA yA zA) ;创建点列表。 ptB (list xB yB zB) ) ;创建点列表。 (if (/= s6 "") (progn (setq ptC (list xC yC zC)) ;创建点列表。 (if (/= s7 "") (setq ptD (list xD yD zD)) ;创建点列表。 ) ) ) (if (= s6 "") (progn (command ".3dpoly" ptA ptB "") (setq plent(entlast)) ) (if (= s7 "") (progn (command ".3dpoly" ptA ptB ptC "") (setq plent(entlast)) ) (if (/= s7 "") (progn (command ".3dpoly" ptA ptB ptC ptD "") (setq plent(entlast)) ) ) ) ) ; ;;;上面增加一个获得绘制的多段线---------------- ; ;;;下面开始进行平面放置(旋转)------------------ (if plent (if (vlax-curve-isPlanar plent);判断是否可平面化--- (progn (if (>= (vlax-curve-getEndParam plent) 2) (progn;多于两个点,判断面-------------- (setq v1(mapcar '- ptB ptA) v2(mapcar '- ptC ptA) norv(>*> v1 v2);计算面的法向量-- ) (if (not (equal (setq rotatev(>*> norv '(0 0 1))) '(0 0 0) 1e-3));判断是否已经在xy面上-- (progn;不在xy平面上,需要旋转------ ;首先获得旋转角度和旋转轴------- (setq cosv(/ (>&> norv '(0 0 1)) (distance norv '(0 0 0)))) (setq ang(acos cosv)) ;;这里可以生成旋转矩阵或者利用rotate3d----------------------- (command "._rotate3d" plent "" ptA (mapcar '+ ptA rotatev) (* 180 (/ ang pi))) ) ) ) (progn;两个点判断线------------------- (setq v1(mapcar '- ptB ptA)) (if (not (equal (>&> v1 '(0 0 1)) 0 1e-3)) (progn;;线不在xy平面上------------ (if (equal (setq rotatev(>*> v1 '(0 0 1))) '(0 0 0) 1e-3) (progn;和z轴平行绕x轴或者y轴都可以,先假定绕x轴旋转--------- (command "._rotate3d" plent "" ptA (mapcar '+ ptA '(1 0 0)) 90) ) (progn;不和z轴平行,计算旋转轴和旋转角度-------------------- (setq cosv(/ (>&> v1 '(0 0 1)) (distance v1 '(0 0 0)))) (setq ang(acos cosv)) (command "._rotate3d" plent "" ptA (mapcar '+ ptA rotatev) (* 180 (/ ang pi))) ) ) ) ) ) ) ) ) ) ; ;;;;下面开始进行平面放置(移动)---------------------------------------- ; ;;;;没有详细读上面的代码,所以换行处理没有做,只是分开了位置,以便观察--- ; ;;;;这个你自己写吧,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,--------- (if startp (setq startp (mapcar '+ startp '(4200 0 0))) (setq startp '(0 0 0))) (if plent (command "._move" plent "" ptA startp) ) ) (defun >*>(>a >b / a1 a2 a3 b1 b2 b3) (cond ((= 2 (length >a));; x1*y2 - x2*y1 (setq a1(car >a) a2(cadr >a) b1(car >b) b2(cadr >b)) (- (* a1 b2) (* a2 b1)) ) (t (setq a1(car >a) a2(cadr >a) a3(caddr >a) b1(car >b) b2(cadr >b) b3(caddr >b)) (list (- (* a2 b3)(* a3 b2)) (- (* a3 b1) (* a1 b3)) (- (* a1 b2) (* a2 b1))) ) ) ) (defun >&>(>a >b) (apply '+ (mapcar '* >a >b)) ) (defun acos(cosv) (cond ((equal 1 cosv 1e-5) 0) ((equal -1 cosv 1e-5) pi) (t (- (/ pi 2) (atan (/ cosv (expt (- 1 (* cosv cosv)) 0.5))))) ) ) ;;第20根多段线不是一个平面,,,,,,,,,,,,,,,,,,,,,根本就没有办法平放在一个平面,,,,所以没有处理!

sailorcwx 发表于 2008-5-28 11:47:00

不知道楼主试过没有用二维多段线实现的就是躺在XY平面或平行XY平面的，不知道楼主是不是要这种效果而用三维多段线实现，还要旋转，太麻烦了

页: [1] 2 3 4 5

明经CAD社区's Archiver

TO:"sailorcwx"兄和"xxsheng兄"程序OK,大恩不言谢啦!!!