[求助]如何对整个图形实现坐标变换？

shyshy0916

这种办法太难实现了，对象各有不同，有的不仅是特征点，还有相关参数，比如一个圆，光把圆中心点的坐标转换是没有用的，还要有半径才能显示出来，这有点太复杂化了，实际如果是简单的数学关系，可以直接用旋转与平移和缩放来完成就行了，何须这么麻烦呢？

laoxie_198

(defun c:sz54();将苏州独立坐标系转换为54系

  ;(startapp  "e:/zbzh.exe")
  ;(command "delay" 10000);延迟时间
  ;(setq cswj "e:/cswj.txt")    
  ;(setq fp3 (open cswj "r"))
  ;(setq jd (atof (read-line fp3)))
  ;(setq x0 (atof (read-line fp3)))
  ;(setq y0 (atof (read-line fp3)))
  ;(close fp3)
  (setq kkk 1.000026080623)
  (setq jd -0.302501944)
  (setq jd (* jd 0.017453292))
  (setq y0 509.493398)
  (setq x0 3407.090933)
  (setq cs (cos  jd ))
  (setq si (sin  jd ))
 
  (setq a1 (ssget "X"))
  (setq shumu (sslength a1))
  (setq j 0)
  (setq tj 0)
  (repeat shumu
    (setq a2 (ssname a1 j))
    (setq a (entget a2))
    (setq n (length a ))
    (setq kk 0)
    (repeat n
    (setq m (nth kk a))
    (if (= (car m) 10) 
     (progn
      (setq tj (+ tj 1))
      (setq p1 (cdr m))
      (setq y11 (car p1))
      (setq x11 (cadr p1))
      ;(setq x1 (- (+ x0 ( * x11  cs)) (* y11  si)))
      ;(setq y1 (+ (+ y0 ( * x11  si)) (* y11  cs)))
      (setq x1 (- (+ x0 (* kkk (* x11  cs))) (* kkk (* y11  si))))
      (setq y1 (+ (+ y0 (* kkk (* x11  si))) (* kkk (* y11  cs))))
      (setq p1 (list  y1 x1))
      (setq b1 (nth kk a))
      (setq b2 (cons 10 p1))
      (setq a (subst b2 b1 a))
      (entmod a)
      )
     )
     (if (= (car m) 11)
 (progn
    (setq tj (+ tj 1))
           (setq p1 (cdr m))
    (setq y11 (car p1))
           (setq x11 (cadr p1))
           ;(setq x1 (- (+ x0 ( * x11  cs)) (* y11  si)))
           ;(setq y1 (+ (+ y0 ( * x11  si)) (* y11  cs)))
    (setq x1 (- (+ x0 (* kkk( * x11  cs))) (* kkk (* y11  si))))
           (setq y1 (+ (+ y0 (* kkk( * x11  si))) (* kkk (* y11  cs))))
           (setq p1 (list  y1 x1))

           (setq b1 (nth kk a))
           (setq b2 (cons 11 p1))
           (setq a (subst b2 b1 a))
           (entmod a)
  )
      )
      (setq kk (+ kk 1))
    )
    ;一个实体计算完毕，开始下一个循环。
    (setq j (+ j 1))
    )
  (princ)
  )

冰神

楼主也是搞测量的吧？

liujing95

正宗的四参数lisp转换模型,终于找到了

cqy

联系我：陈工 18059851457