批量修改二维多段线的标高

khidigis

执行scale命令改变了二维多段线的标高值，我需要把标高值改回去，每个被修改的标高值/scale命令输入的比例因子，就是原来的值，如何用lisp实现批量修改，在线等，急。谢谢各位

gufeng

2. (defun c:Test (/ ACAD_ERR ERR_INFO)
3. ;_所有的函数在这里写
4. (setq oldcmdecho (getvar "cmdecho"))
5. (setvar "cmdecho" 0)
6. (defun acad->app
7. (/ BG BGBS I INFO NEWBG OBJ OBJ_5 OBJ_NAME OBJ_TYPE OBJ_VAL)
8. (setq obj (ssget '((0 . "*POLYLINE"))))
9. (if obj
10. (progn
11. (while
12. (not
13. (setq
14. bgbs (getreal "\n输入改正数(正-原标高乘/负-原标高除):")
15. )
16. )
17. )
18. (setq i -1)
19. (setq info '()) ;_没有修改的园元句柄表
20. (repeat (sslength obj)
21. (vl-load-com)
22. (setq obj_name (ssname obj (setq i (1+ i)))) ;_图元名
23. (setq obj_val (vlax-ename->vla-object obj_name)) ;_Val对象
24. (setq obj_5 (vlax-get obj_val 'handle)) ;_图元句柄
25. (setq obj_type (strcase (vlax-get obj_val 'objectname))) ;_图元类型
26. (cond
27. ((or (= obj_type "ACDBPOLYLINE")
28. (= obj_type "ACDB2DPOLYLINE")
29. ) ;_二维多段线
30. (setq bg (vlax-get obj_val 'Elevation)) ;_原标高
31. (if (< bg 0);_原标高小于0不作修改
32. (setq info (cons obj_5 info))
33. (progn
34. (if (minusp bgbs)
35. (setq newbg (/ bg (abs bgbs))) ;_原标高/改正数
36. (setq newbg (* bg bgbs)) ;_原标高*改正数
37. )
38. (command "_change" obj_name "" "p" "e" newbg "")
39. )
40. )
41. )
42. ((= obj_type "ACDB3DPOLYLINE") ;_三维多段线
43. (setq info (cons obj_5 info))
44. )
45. )
46. )
47. (if info
48. (progn
49. (princ
50. "\n标高小于0或是三维线，没有修改的图元句柄:\n"
51. )
52. (princ info)
53. )
54. )
55. )
56. )
57. )
58. ;_以下为错误信息显示
59. (setq acad_err (vl-catch-all-apply
60. '(lambda ()
61. (acad->app)
62. )
63. )
64. )
65. (if (vl-catch-all-error-p acad_err) ;_如果返回的是错误对象
66. (progn
67. (setq err_info (vl-catch-all-error-message acad_err)) ;_截获错误信息
68. (setq err_info (strcat "\n错误提示:" err_info))
69. (setvar "cmdecho" oldcmdecho)
70. (vl-exit-with-error (princ err_info))
71. )
72. )
73. (setvar "cmdecho" oldcmdecho)
74. (princ)
75. )

(defun c:Test (/ ACAD_ERR ERR_INFO) ;_所有的函数在这里写 (setq oldcmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (defun acad->app (/ BG BGBS I INFO NEWBG OBJ OBJ_5 OBJ_NAME OBJ_TYPE OBJ_VAL) (setq obj (ssget '((0 . "*POLYLINE")))) (if obj (progn (while (not (setq bgbs (getreal "\n输入改正数(正-原标高乘/负-原标高除):") ) ) ) (setq i -1) (setq info '()) ;_没有修改的园元句柄表 (repeat (sslength obj) (vl-load-com) (setq obj_name (ssname obj (setq i (1+ i)))) ;_图元名 (setq obj_val (vlax-ename->vla-object obj_name)) ;_Val对象 (setq obj_5 (vlax-get obj_val 'handle)) ;_图元句柄 (setq obj_type (strcase (vlax-get obj_val 'objectname))) ;_图元类型 (cond ((or (= obj_type "ACDBPOLYLINE") (= obj_type "ACDB2DPOLYLINE") ) ;_二维多段线 (setq bg (vlax-get obj_val 'Elevation)) ;_原标高 (if (< bg 0);_原标高小于0不作修改 (setq info (cons obj_5 info)) (progn (if (minusp bgbs) (setq newbg (/ bg (abs bgbs))) ;_原标高/改正数 (setq newbg (* bg bgbs)) ;_原标高*改正数 ) (command "_change" obj_name "" "p" "e" newbg "") ) ) ) ((= obj_type "ACDB3DPOLYLINE") ;_三维多段线 (setq info (cons obj_5 info)) ) ) ) (if info (progn (princ "\n标高小于0或是三维线，没有修改的图元句柄:\n" ) (princ info) ) ) ) ) ) ;_以下为错误信息显示 (setq acad_err (vl-catch-all-apply '(lambda () (acad->app) ) ) ) (if (vl-catch-all-error-p acad_err) ;_如果返回的是错误对象 (progn (setq err_info (vl-catch-all-error-message acad_err)) ;_截获错误信息 (setq err_info (strcat "\n错误提示:" err_info)) (setvar "cmdecho" oldcmdecho) (vl-exit-with-error (princ err_info)) ) ) (setvar "cmdecho" oldcmdecho) (princ) )

khidigis

谢谢gufeng提供的代码，发现我的问题有个错误：每个被修改的标高值/scale命令输入的比例因子，就是原来的值.

但scale命令的修改标高值不是那种计算关系，还和基点有关，还是谢谢gufeng ，批量修改标高的目的达到，现在就是不清楚标高值的改正数是多少。

gzbccy

不好意思，新手一个，加载后，不知道如何使用啊？

gzbccy

已经会用了，谢谢大师

gzbccy

gufeng 发表于 2010-7-28 11:13

二维多段线是可以修改，要是样条曲线值也能修改就好了。

hejiazhao

上面的那个程序不是很科学，如果大面积的SCALE标高的变化量是不一样的